20 баллов! Помогите, пожалуйста. Написать программу Паскаль. Вводится число. Вывести четность числа.
Ответы
Ответ дал:
0
Ответ:
program Test
var
n: Integer;
begin
Write ('Введите число: ');
ReadLn (n);
if n mod 2 = 0 then
WriteLn ('четное')
else
WriteLn ('не четное');
ReadLn;
end.
LSM54:
В задании только четное
Если не нужно, чтобы выводилось сообщение, что число не четное, то уберите эти 2 строки:
else
WriteLn ('не четное');
else
WriteLn ('не четное');
А можно записать как writeln (a, '-четное число'); и не писать ReadLn?
ReadLn в конце для того, чтобы окно не закрывалось. попробуйте убрать - в разных версиях компилятора может по разному работать
Вас заинтересует
2 месяца назад
10 месяцев назад
1 год назад
7 лет назад