Задано двухзначное число. составить программу, которая отвечает на вопрос, правда ли, что все его цифры чётные

Question

Информатика

Максюта

28 сентября, 07:17

Задано двухзначное число. составить программу, которая отвечает на вопрос, правда ли, что все его цифры чётные

+2

Ответы (1)

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

Витана · Answer 1

Program oddn;

var

a, b, c: integer;

begin

readln (c) ;

a:=c div 10;

b:=c - a*10;

if (a and 1=0) and (b and 1=0) then

writeln ('все цифры четные')

else

writeln ('есть нечетные цифры') ;

end.