Question

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

Answer 1

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

Answer 2

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

Answer 3

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);
readln
end.