МН
Максим Непомнящих
Для любого количества знаков:
readln(n);
s:=0;
p:=1;
while n>0 do begin
s:=s+n mod 10;
p:=p*(n mod 10);
n:=n div 10;
end;
writeln(s,p);
Var n,a,b,c,s,p: integer;
begin
writeln('Vvodi n');
readln(n);
a:= n mod 10;
b:= (n div 10) mod 10;
c:= n div 100;
s:=a+b+c;
p:=a*b*c;
writeln('Proizvedenie p=',p,' Summa s=',s);
end.