< >

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

Ответы

Ответ дал: Kitsu
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.

Похожие вопросы
Русский язык
2 года назад
как правильно написать транскрипцию слова ежик
Русский язык
2 года назад
Составь из слов три следующих предложения этого текста.При составлении предложений задавай вопросы от слова к слову. шумят,и,ранние,галдят,птицы новые,они,гнёзда,вьют грачи,белоносые,чёрные,трудятся.
Алгебра
7 лет назад
Помогите.... Докажите, что при всех допустимых значениях a - выражение тождественно равно нулю:
Математика
7 лет назад
5832 м Сколько километров и сколько метров 20040 мм сколько метров и сколько миллиметров
Алгебра
10 лет назад
(x-y)2-x(x-2y) первая двойка это квадрат
Математика
10 лет назад
Правильное ли это утверждение:Десять единиц одного разряда образуют единицу следующего разряда!?
Математика
10 лет назад
на завод отправлено 3,600 тонн угля в вагонах, по 60 тонн в каждом, и столько же угля в вагонах, по 90 тонн в каждом. Каких вагонов потребовалось больше и на сколько больше? Как записать условие
Геометрия
10 лет назад
найдите углы треугольника(АВС) если угол А на 35 ` меньше угла В , а угол В больше угла С на 25` `-градусы