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

Pascal:

var n, kc, kn:integer;

begin

write ('N = ') ;

readln (n) ;

kc:=0;

kn:=0;

while (n0) 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

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 <<"Кол-во четных цифр: " <
<<"Кол-во нечетных цифр: " <
return 0;

}