Для хоть какого целого k обозначим количество цифр в его десятичной записи

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

\fracN(1)1^2+\fracN(2)2^2+...+\fracN(m)m^2

Необходимо написать код для паскаля!

Задать свой вопрос
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.

Я не совершенно понял про "количество цифр в десятичной записи", но, если неправильно сделал, просто поправить, напишите мне =)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт