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

Question

Информатика

Гемуля

5 февраля, 16:26

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

+1

Ответы (1)

Знаете ответ?

Еняша · Answer 1

Var a:integer;

begin

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

if a mod 2 = 0

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

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

end.