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

Паскаль

Question

Информатика

Виленина

6 января, 16:32

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

Паскаль

+5

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

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

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

Паскаль