Предмет: Информатика,
автор: fgzmfifjbj
найти среднее арифметическое цифр натурального числа n.( использовать частично стандартный алгоритм накопления суммы)
Ответы
Автор ответа:
0
var i,n,sum:integer;
begin
readln(n);
while n>0 do begin
i:=i+1;
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum/i);
end.
Интересные вопросы
Предмет: Русский язык,
автор: ulapteva899
Предмет: Математика,
автор: star1013
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: Marikipiki
Предмет: Химия,
автор: annamusa