Дано натуральное число n найдите сумму его чисел и произведение.
В PascalABC, и через команду while

спасибо большое

var n, sum, mult: integer;begin write('введите число: '); readln(n); sum := 0; mult := 1; while n > 0 do begin sum := sum + n mod 10; mult := mult * (n mod 10); n := n div 10 end; writeln('сумма = ', sum); writeln('произведение = ', mult);readlnend.

Program asdw;Uses crt;Var x,s,s1:integer;beginread (x);s1:=1;s:=1;while x>0 dobegins1:=s1*x mod 10;s:=s+x mod 10;x:=x div 10;end;writeln (s);writeln (s1);end.