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

Var n,S,k:integer;BeginWrite('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.