Задание:
Найти среднее арифметическое цифр натурального числа n. (использовать частично стандартный алгоритм накоплениясуммы)
Решение:
var i,n,sum: integer; beginreadln (n); while n>0 do begini: =i+1; sum: =sum+(n mod 10); n: =n div 10; end; writeln (sum/i); end.
Знаете другой ответ?