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