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

foton228 foton228    3   02.09.2019 00:20    2

Ответы
TANJASELIK TANJASELIK  06.10.2020 10:45
Кажется , так.............
25. в паскале. дано натуральное число n. вычислить разность между суммой и произведением цифр заданн
ПОКАЗАТЬ ОТВЕТЫ
Inna050798 Inna050798  06.10.2020 10:45
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика