25. В Паскале. Дано натуральное число n. Вычислить разность между суммой и произведением...

Question

25. В Паскале.
Дано натуральное число n. Вычислить разность между суммой и произведением цифр заданного числа.

Answer 1

Кажется , так.............

---

Answer 2

Var n,S,P:integer;
Begin
Write('n = ');ReadLn(n);
P:=1;
S:=0;
While n > 0 do
   Begin
   P:=P*(n mod 10);
   S:=S+n mod 10;
   n:=n div 10
   End;
WriteLn('S - P = ',S-P)
End.