Есть ответ 👍

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

129
332
Посмотреть ответы 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.
vttarasova
4,7(28 оценок)

34 байта за все символы

Популярно: Информатика