Проведите отладку программы (если есть, то найдите ошибки в коде; если возможно, то...

Question

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

Answer 1

// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

// Внимание! Если программа не работает, обновите версию!

begin

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

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

end.

Comments

Или сразу тернарный в Print засунуть, еще короче)

---

Да, но тогда он не поместится тут в строку ))) Если обратите внимание на мои ответы, я стал их намеренно резать на части после того, как в очередной раз "доблестные программисты" что-то поправили и теперь строка отображается короче, чем выглядит при наборе в поле ответа.

---

Я всегда режу, особенно когда большие цепочки или лямбда выражения