Определить, является ли данное число А, четным.

Question

Информатика

Викторий

18 апреля, 15:52

Определить, является ли данное число А, четным.

+2

Ответы (1)

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

Фелицата · Answer 1

Var a:integer;

begin

write ('A=') ; readln (a) ;

if a mod 2 = 0

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

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

end.