Дано натуральное число n. Найти величину, обратную среднему арифметическому цифр заданного числа.

программа в Паскале.

Question

Информатика

Филарет

28 мая, 03:19

Дано натуральное число n. Найти величину, обратную среднему арифметическому цифр заданного числа.

программа в Паскале.

+1

Ответы (1)

Знаете ответ?

Микита · Answer 1

Var n, S, k:integer;

Begin

Write ('n = ') ; ReadLn (n) ;

S:=0;

k:=0;

While n > 0 do

Begin

S:=S+n mod 10;

k:=k+1;

n:=n div 10

End;

WriteLn (k/S) ;

End.

Дано натуральное число n. Найти величину, обратную среднему арифметическому цифр заданного числа.программа в Паскале.

Дано натуральное число n. Найти величину, обратную среднему арифметическому цифр заданного числа.

программа в Паскале.