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

Olga692010 Olga692010    1   17.03.2019 23:20    26

Ответы
натярппо натярппо  25.05.2020 21:49

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика