program v4;
var x,y,r:real;
begin
writeln('vvedite x,y,r');
readln(x,y,r);
if r<=0 then writeln('r ne menshe 0')
else
if((sqr(r)>=sqr(x)+sqr(y))and(y>=0)and(y<=r)and(x>=0)and(x<=r))or
((sqr(r)>=sqr(x)+sqr(y))and(y>=0)and(y<=r)and(x<=0)and(x>=-r))or
((x<=0)and(y<=0)and(y<=x)and(y>=-r)and(x>=-r))
then writeln('popadaet')
else
writeln('ne popadaet');
readln;
end.
Соседние файлы в папке lab2 (4)