Для любого целого k обозначим количество цифр в его десятичной записи через N(k). Дано...

Question

Для любого целого k обозначим количество цифр в его десятичной записи через N(k). Дано натуральное число m. Вычислить:



Нужно написать код для паскаля!

Answer 1

Var x: real;
    i, j, m: integer;
function N(i: integer): integer;
begin
     result := length(inttostr(i));
end;
begin
     readln(m);
     for i := 1 to m do
         x := x + N(i)/sqr(i);
     writeln(x);
end.

Я не совсем понял про "количество цифр в десятичной записи", но, если неправильно сделал, легко исправить, напишите мне =)