Проведите отладку программы (если есть, то найдите ошибки в коде; если возможно, то улучшите код программы) var x: integer; begin write('введите x: '); readln(x); if x mod 2 = 0 then writeln('это четное число') else writeln('это нечетное число'); end.

лэлаЭж лэлаЭж    1   02.10.2019 02:00    1

Ответы
4553234 4553234  09.10.2020 10:47
// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018// Внимание! Если программа не работает, обновите версию!

begin

 if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')

 else Print('Это четное число')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика