Найти среднее арифметическое цифр натурального числа n. (использовать частично стандартный алгоритм накопления суммы)

Question

Тотя

17 октября, 21:07

+1

Ответы (1)

Знаете ответ на вопрос?

Гора · Answer 1

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.