Проведите отладку программы (если есть, то найдите ошибки в коде; если возможно, то улучшите код программы)
var x: integer;
begin
write('Введите x: ');
readln(x);
if x mod 2 = 0 then
writeln('Это четное число')
else writeln('Это нечетное число');
end.
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
// Внимание! Если программа не работает, обновите версию!
begin
if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')
else Print('Это четное число')
end.
Ответил Giammy
0
Или сразу тернарный в Print засунуть, еще короче)
Ответил Аноним
0
Да, но тогда он не поместится тут в строку ))) Если обратите внимание на мои ответы, я стал их намеренно резать на части после того, как в очередной раз "доблестные программисты" что-то поправили и теперь строка отображается короче, чем выглядит при наборе в поле ответа.
Ответил Giammy
0
Я всегда режу, особенно когда большие цепочки или лямбда выражения
Новые вопросы