Паскаль! Нач. уровень.
С использованием WHILE
Гражданин 1 марта открыл счет в банке вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы.
Определить:
1)сколько денег будет на счете через 6 мес;
2) Через сколько месяцев размер вклада превысит 1200 руб.;
3) За какой месяц величина ежемесячного вклада превысит 50 руб.

Предыдущий
вопрос Следующий
вопрос

program BankDeposit;

var
deposit, monthlyProfit: real;
month: integer;

begin
deposit := 1000;
month := 1;

while month <= 6 do
begin
deposit := deposit + deposit * 0.02;
month := month + 1;
end;

writeln('Сумма на счете через 6 месяцев: ', deposit:0:2);

deposit := 1000;
month := 1;

while deposit <= 1200 do
begin
deposit := deposit + deposit * 0.02;
month := month + 1;
end;

writeln('Размер вклада превысит 1200 рублей через ', month, ' месяцев');

deposit := 1000;
month := 1;

while deposit <= 50 do
begin
deposit := deposit + deposit * 0.02;
month := month + 1;
end;

writeln('Ежемесячный вклад превысит 50 рублей через ', month, ' месяцев');

end.