profile
Опубликовано 5 лет назад по предмету Информатика от vipvitalia

Вклад в банке составляет x рублей. Ежегодно он увеличивается на p процентов, после чего дробная часть копеек отбрасывается. Каждый год сумма вклада становится больше. Определите, через сколько лет вклад составит не менее y рублей. Программа получает на вход три натуральных числа: x, p, y и должна вывести одно целое число. ТОЛЬКО НА ПАСКАЛЕ

  1. Ответ
    Ответ дан archery
    var sum, required_sum, percent : real;
    years : integer;
    Begin
      read(sum, percent, required_sum);
      if percent > 1 then percent := percent / 100;

      repeat
        sum := trunc(100 * sum * (1 + percent)) / 100;
        years := years + 1;
        writeln(years, ' sum = ', sum);
      until sum >= required_sum;

      writeln(years);
    End.