Составте программу, определяющую,является ли введеное число с клавиатуры целое число четным
Составте программу, определяющую,является ли введеное число с клавиатуры целое число четным
Гость
Ответ(ы) на вопрос:
Гостьvar
i : Integer;
begin
Write('Введите число: ');
Readln(i);
if i mod 2 = 0 then
Writeln('Четное')
else
Writeln('Нечетное');
Readln;
end.
Не нашли ответ?
Похожие вопросы