Предмет: Информатика,
автор: vityashishka
Запрашиваю поддержку с Паскалем!
Приложения:
Ответы
Автор ответа:
1
var
x,y:real;
begin
readln(x,y);
if y>=0 then
if (y>=1-x) and (x<=1) then
if y>=sqr(x) then
writeln('True')
else
if x>0 then
writeln('True')
else
writeln('False')
else
writeln('False')
else
writeln('False');
end.
Похожие вопросы
Предмет: Английский язык,
автор: kolyambala1302
Предмет: Русский язык,
автор: koynova1999
Предмет: Русский язык,
автор: solzoeva
Предмет: Математика,
автор: пумв
Предмет: МХК,
автор: mandreevna888
begin
var (x, y) := ReadReal2;
if (x <= 1) and (y >= 1 - x) and ((x > 0) or (y >= x * x))
then write('принадлежит')
else write('не принадлежит');
end.