Предмет: Информатика, автор: robik308

Дано натуральное число n. Найти среднее арифметическое значение кубов цифр заданного числа

Ответы

Автор ответа: Аноним
0
Var
   n,c,S,k:integer;
Begin
Write('n = ');ReadLn(n);
k:=0;
S:=0;
While n > 0 do
   Begin
   c:=n mod 10;
   k:=k+1;
   S:=S+c*c*c;
   n:=n div 10
   End;
WriteLn('Sr = ',S/k);
End.
Похожие вопросы
Предмет: Алгебра, автор: viktoria58