Ответ: 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.
Вклад в банке составляет x рублей. Ежегодно он увеличивается на p процентов, после чего дробная часть копеек отбрасывается. Каждый год сумма вклада становится больше. Определите, через сколько лет вклад составит не менее y рублей. Программа получает на вход три натуральных числа: x, p, y и должна вывести одно целое число. ТОЛЬКО НА ПАСКАЛЕ
— Правильный ответ на вопрос найдете ниже
13.01.2020 · 1