Ввести целое число и найти количество четных и нечетных цифр.

Pascal:
var n,kc,kn:integer;
begin
  write ('N = ');
  readln (n);
  kc:=0;
  kn:=0;
  while (nlt;gt;0) do
    begin
      if (n mod 10 mod 2 = 0) then inc(kc) else inc(kn);
      n:=n div 10;
    end;
  writeln ('Кол-во четных цифр: ',kc);
  writeln ('Кол-во нечетных цифр: ',kn);
end.

C++:
include lt;iostreamgt;
using namespace std;

int main()

  int n,kn = 0,kc = 0;
  cout lt;lt;"N = ";
  cin gt;gt;n;
  while (n!=0)
 
    if (n%10%2==0)
      ++kc;
    else ++kn;
    n/=10;  
 
  cout lt;lt;"Кол-во четных цифр: " lt;lt;kc lt;lt;endl
          lt;lt;"Кол-во нечетных цифр: " lt;lt;kn lt;lt;endl;
  return 0;