Задано натуральное число n. Вычислить модуль разности кубов цифр заданного числа. ПАСКАЛЬ
1 комментария:
Что такое разность кубов цифр, напишите пример для числа 123
Ответы
Var
n,c,R:integer;
Begin
Write('n = ');ReadLn(n);
R:=0;
While n > 0 do
Begin
c:=n mod 10;
R:=R-c*c*c;
n:=n div 10
End;
WriteLn('|R| = ',Abs(R));
End.
1 комментария:
В такой трактовке Вы просто находите сумму кубов цифр.

