Question

calculeaza pentru n numar natural,produsul cifrelor pare ,suma cifrelor impare

Answer 1

program p1;var n,i,p,s:longint;begin  readln(n);  s:=0;p:=1;  repeat    i:=n mod 10;    n:=n div 10;    if i mod 2=0 then p:=p*i       else s:=s+i;  until n=0;  writeln(p);  writeln(s);end.