Ответы
Ответ дал:
1
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
x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write(x*x-y*y<=0)
End.
x = 1
y = -1
True
Похожие вопросы
1 год назад
1 год назад
1 год назад
1 год назад
2 года назад