Составить программу в паскаль
Составить программу, которая печатает, что точка (x; y) относится к заданной заштрихованной области, и ошибку в противном случае
По дате
По рейтингу
123456789
var x, y, r: real;
begin
read(x, y);
r := sqr(x) + sqr(y);
if (y >= 0) and (r <= 36) and ((x <= 0) or (r >= 9)) then
write('yes')
else
write('no')
end. Примерно так будет
12
ReadLn(X, Y);
WriteLn((Sqr(x)+Sqr(Y)<=36.0) and ((Y>=0) and (X<=0)) or ((Sqr(x)+Sqr(Y)>=9.0) and (x>0))); 