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

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

Question

Информатика

Федяха

2 сентября, 01:12

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

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

+3

Ответы (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. Найти величину, обратную среднему арифметическому цифр заданного числа.

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