Через сколько лет долг превысит заданную сумму? - 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) (то есть увеличивается на процент).
- После выхода из цикла, выводится количество лет, через которое долг превысит заданную сумму.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
