§ 7. Запись алгоритмов на языках программирования ГДЗ по Информатике 11 класс. Босова.
15. Разработайте программу, которая выводит сообщение «Да», если точка с координатами (х, у) принадлежит закрашенной области, и «Нет» в противном случае.
Ответ
begin
var (x, y) := ReadReal2(‘Введи координаты’);
if (x * x + y * y <= 9) and (x * x + y * y >= 4)
and (x <= 0) and (y >= 0) or
(x * x + y * y <= 4) and (x >= 9) and (y <= 0) then
Println(‘Да’)
else
Println(‘Нет’);
end.