Информатика Архивный вопрос

Помогите,пожалуйста,с Pascal

Помогите,пожалуйста,с Pascal
Нет комментариев

Ответы

Гость

Var
   x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write((x>=0)or(y*y>4))
End.



x = 2
y = 2
True

Нет комментариев