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

Question

Информатика

Прокоп

2 августа, 23:45

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

+1

Ответы (1)

Знаете ответ?

Инна · Answer 1

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.