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

Question

Информатика

Толюня

5 февраля, 15:03

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

+1

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

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