Задать вопрос
21 июня, 02:54

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

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

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

+5
Ответы (1)
  1. 21 июня, 05:37
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Необходимо решить следующую предметную задачу и написать программу на языке Паскаль. Для любого целого k обозначим количество цифр в его ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы