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

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.