Question

5й пожалуйста). надо ,что бы программа писала true ,если точка лежит на заштрихованной поверхности. if использовать НЕльзя) сказали через булеан решать)

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (x, y) := ReadReal2('Введите x и y:');

 ((x >= 0) and ((y > 0) and (x * x + y * y <= 16) or

     (y <= 0) and (x * x + y * y <= 25))).Println

end.

Answer 2

(0<=x) and (((x*x+y*y<=16) and (0<=y)) or ((x*x+y*y<=25) and (y<=0)))