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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!