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

Question

Информатика

Филонилла

11 июня, 11:40

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

+4

Ответы (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.