Question

Необходимо решить следующую предметную задачу и написать программу на языке Паскаль. Для любого целого k обозначим количество цифр в его десятичной записи Ц(k).
Например: Ц(1)=1, Ц(9)=1, Ц(10)=2. Дано натуральное число n. Вычислить:
( Ц(1)/1 ) + ( Ц(2)/2^2 ) +... +( Ц(n)/n^2 )

Answer 1

program crash;

 

var n, k: integer;

   r: real;

 

begin

 write('n = ');

 readln(n);

 k := 0;

 r := 0;

 while n > 0 do

   begin

     k := k + 1;

     r := r + (n mod 10) / (k * k);

     n := n div 10

   end;

 writeln('r = ', r:0:14);

 readln

end.