Проведите отладку программы (если есть, то найдите ошибки в коде; если возможно, то улучшите код программы)
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.
Ответ дал:
0
Или сразу тернарный в Print засунуть, еще короче)
Ответ дал:
0
Да, но тогда он не поместится тут в строку ))) Если обратите внимание на мои ответы, я стал их намеренно резать на части после того, как в очередной раз "доблестные программисты" что-то поправили и теперь строка отображается короче, чем выглядит при наборе в поле ответа.
Ответ дал:
0
Я всегда режу, особенно когда большие цепочки или лямбда выражения
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад
8 лет назад