25. в паскале. дано натуральное число n. вычислить разность между суммой и произведением цифр заданного числа.
129
332
Ответы на вопрос:
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.
Популярно: Информатика
-
lika36911.11.2020 06:26
-
ola12429.10.2021 10:32
-
dima102529.03.2023 15:53
-
123qwerty025.10.2022 16:29
-
Nastyled10.06.2020 14:49
-
T321123.08.2020 20:10
-
Hicka17.02.2021 04:53
-
aimuratsergei123401.03.2022 22:12
-
яна793330.08.2021 22:45
-
ivanmoskvin17728.09.2022 11:44