Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:LABORAT
.PASVar x,y:real;
begin
readln(x,y);
if ((x+5)*(x+5)/400+(x+2)*(x-2)/1089<=1)
and ((x+2)*(x+2)+(y+5)*(y+5)<=900) and
(x>0) and (y>=8.6-0.57*x)
then writeln ('da')
else writeln ('net');
if (x>0) and (y<=8.6-0.57*x)
and ((x+2)*(x+2)+(y+5)*(y+5)<=900)
and ((x+5)*(x+5)/400+(x-2)*(x+2)/1089>1)
then writeln ('da')
else writeln ('net');
end.