С клавиатуры вводится натуральное четырёхзначное число n. Выведите количество четных цифр этого числа

Question

Информатика

Феозва

22 марта, 12:15

С клавиатуры вводится натуральное четырёхзначное число n. Выведите количество четных цифр этого числа

+3

Ответы (1)

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

Манюня · Answer 1

Var

n, g, s:integer;

begin

writeln ('Введите число') ;

readln (n) ;

for var i:=1 to 4 do

begin

g:=n mod 10;

if g mod 2=0 then inc (s) ;

n:=n div 10;

end;

writeLn (s) ;

end.

нужен другой язык - пиши