Предмет: Информатика,
автор: 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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: avatareyva
Предмет: Биология,
автор: qk7y78kghx
Предмет: Другие предметы,
автор: marinalihovidova490
Предмет: Обществознание,
автор: Аноним
Предмет: Алгебра,
автор: viktoria58