Составте программу, определяющую, является ли введеное число с клавиатуры целое число четным

Question

Информатика

Игнатий

29 августа, 04:09

Составте программу, определяющую, является ли введеное число с клавиатуры целое число четным

+5

Ответы (1)

Знаете ответ на вопрос?

Адамушка · Answer 1

Var

i : Integer;

begin

Write ('Введите число: ') ;

Readln (i) ;

if i mod 2 = 0 then

Writeln ('Четное')

else

Writeln ('Нечетное') ;

Readln;

end.