Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Попадёт ли точка в заданную область Написать программу в Паскале

Ответ оставил Гость

Var
x,y:real;
begin
write(x=);
readln(x);
write(y=);
readln(y);
if (sqr(x)+sqr(y)<=1) then 
   if (x<0) and (y>0) then 
   writeln(no) 
   else 
   writeln(yes)
else
writeln(no);
end.