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

Question

Информатика

Вассочка

12 мая, 05:53

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

+2

Ответы (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 четное