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

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

    • Автор:

      gordon51
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years