Посчитать количество четных цифр любого числа

Паскаль

Question

Информатика

Настуля

19 августа, 18:08

Посчитать количество четных цифр любого числа

Паскаль

+1

Ответы (1)

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

Маруся · Answer 1

Var

n:longint;

d, k:integer;

begin

Write ('Введите натуральное число: ') ; Read (n) ;

k:=0;

while n>0 do begin

d:=n mod 10;

n:=n div 10;

if (d mod 2) = 0 then Inc (k)

end;

Writeln ('Количество четных цифр равно ', k)

end.

Посчитать количество четных цифр любого числаПаскаль

Посчитать количество четных цифр любого числа

Паскаль