Ввести целое число и определить количество четных и нечетных цифр.

Pascal:
var n,kc,kn:integer;
begin
  write ('N = ');
  readln (n);
  kc:=0;
  kn:=0;
  while (n<>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 <iostream>
using namespace std;

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