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

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;}