//
Var x: integer;
Begin
Write('введите x=');
Readln(x);
if x>0 then
Write('положительное')
else
Write('не положительное');
End.
ТЕСТ 1
обучающие игры ссылка на файл
Комментариев нет:
Отправить комментарий