Через сколько лет долг превысит заданную сумму? - PascalABC.NET
Формулировка задачи:
Напишите программу, которая определяет через сколько лет долг бизнесмена превысит s тысяч рублей, если известно, что он взял ссуду m тысяч рублей в банке под 20% годовых.
Заранее спасибо.
Решение задачи: «Через сколько лет долг превысит заданную сумму?»
textual
Листинг программы
begin
var m := ReadLnReal('Сколько взял: m=');
var p := ReadLnReal('Под какой процент: p=');
var s := ReadLnReal('Какой потолок: s=');
var y := 0;
while m <= s do
begin
y += 1;
m *= 1+p/100;
end;
WriteLn('Долг будет превышен через лет: ', y);
end.
Объяснение кода листинга программы
- Ввод данных:
- m (сколько взял)
- p (под какой процент)
- s (какой потолок)
- Инициализация переменной y (количество лет) значением 0.
- Цикл while, выполняющийся до тех пор, пока m не станет больше s:
- y увеличивается на 1.
- m умножается на (1 + p/100) (то есть увеличивается на процент).
- После выхода из цикла, выводится количество лет, через которое долг превысит заданную сумму.