25. В Паскале.
Дано натуральное число n. Вычислить разность между суммой и произведением цифр заданного числа.
Нет комментариев
Ответы
Гость Кажется , так.............
Нет комментариев
Гость 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.
Нет комментариев
Похожие вопросы
Информатика
Что является операционной системой...
Информатика
Что такое программа........
Список предметов
