• Предмет: Информатика
  • Автор: verteletskys
  • Вопрос задан 2 года назад

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

Приложения:

Ответы

Ответ дал: Аноним
1
Var
   x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write((x>=2)or(y*y<>4))
End.



x = 2
y = -2
True
Похожие вопросы