Ответы
Гость
Var
x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write(x*x-y*y<=0)
End.
x = 1
y = -1
True
Нет комментариев
Похожие вопросы
Информатика
Помогите нужно срочно решить 3-4...
Информатика
Помогите пожалуйста 5 задание! Срочно!...
Информатика
Помогите,пожалуйста,с Pascal...
Информатика
Помогите,пожалуйста,с Pascal...