Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите координаты точки:');
Writeln((y>3-x) and (y>0) and (x>0) and (x*x+y*y<36))
end.
Пример
Введите координаты точки: 5 2.1
True
Внимание! Если программа не работает, обновите версию!
begin
var (x,y):=ReadReal2('Введите координаты точки:');
Writeln((y>3-x) and (y>0) and (x>0) and (x*x+y*y<36))
end.
Пример
Введите координаты точки: 5 2.1
True
Похожие вопросы
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад