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

1) Где тут ПРОГРАММА? 2) не 4, а 16

Сергей, а по первому замечанию что? Где программа?

а вам не трудно будет мне помочь ещё в 2-х номерах?)

в 1 и 3?) мне просто очень нравятся ваши решения) они короткие, эффективные и вы обходитесь даже без boolean)

В начале XIV вена английский монах Уильям из Оккама сказал: "Не следует множить сущее без необходимости". Зачем вводить переменную, если можно без нее обойтись?

*века

Пишите на PascalABC.NET (на официальном сайте восемь презентаций по языку, можно начать с них) - будет все просто, быстро и наглядно.

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.

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