Необходимо решить следующую предметную задачу и написать программу на языке Паскаль. Для любого целого k обозначим количество цифр в его десятичной записи Ц (k).

Например: Ц (1) = 1, Ц (9) = 1, Ц (10) = 2. Дано натуральное число n. Вычислить:

(Ц (1) / 1) + (Ц (2) / 2^2) + ... + (Ц (n) / n^2)

Question

Информатика

Саугилде

30 января, 22:37

Необходимо решить следующую предметную задачу и написать программу на языке Паскаль. Для любого целого k обозначим количество цифр в его десятичной записи Ц (k).

Например: Ц (1) = 1, Ц (9) = 1, Ц (10) = 2. Дано натуральное число n. Вычислить:

(Ц (1) / 1) + (Ц (2) / 2^2) + ... + (Ц (n) / n^2)

+4

Ответы (1)

Знаешь ответ?

Акбика · 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.