N - натуральное трехзначное число. Верно ли, что хотя бы цифра этого числа четная? Нужно написать код на Паскале!

Question

Информатика

Кирилка

13 ноября, 01:00

N - натуральное трехзначное число. Верно ли, что хотя бы цифра этого числа четная? Нужно написать код на Паскале!

+3

Ответы (1)

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

Динуся · Answer 1

var

n, a, b, c:integer;

begin

write ('Введите N:=') ;

readln (n) ;

if (n 99) then begin

a: = (n div 100) ;

b: = ((n mod 100) div 10) ;

c: = (n mod 10) ;

if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then write ('Верно') else

write ('Не верно') ;

end;

end.