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

Question

Петряка

15 декабря, 21:43

+3

Ответы (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.