Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

LABORAT

.PAS
Скачиваний:
7
Добавлен:
09.12.2013
Размер:
347 б
Скачать

Var 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.
Соседние файлы в предмете Информатика