Вводится число с клавиатуры. Необходимо вывести его на экран и выяснить четное оно или нет.

Question

Информатика

Маюша

29 октября, 13:47

Вводится число с клавиатуры. Необходимо вывести его на экран и выяснить четное оно или нет.

+5

Ответы (1)

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

Арсения · Answer 1

Var a:integer;

begin

write ('a = ') ;

readln (a) ;

if a mod 2 = 0

then writeln ('Число ', a,' четное')

else writeln ('Число ', a,' нечетное')

end.

Пример:

a = 28

Число 28 четное