Добавил:
Eatmore
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:написанные программы / лаба №2 с отчетом все варианты. / lab2 (16) / LAB2(16)
.PAS program v4;
var x,y,r:real;
begin
writeln('vvedite x,y');
readln(x,y);
if ((y<=-sqr(x)+2)and(y>=x)and(x<=0))or
((y<=-sqr(x)+2)and(y<=x)and(x>=0))
then writeln('popadaet')
else
writeln('ne popadaet');
readln;
end.
var x,y,r:real;
begin
writeln('vvedite x,y');
readln(x,y);
if ((y<=-sqr(x)+2)and(y>=x)and(x<=0))or
((y<=-sqr(x)+2)and(y<=x)and(x>=0))
then writeln('popadaet')
else
writeln('ne popadaet');
readln;
end.