Question

Нужно полностью решение в паскале.
Задача: Начальный вклад в банке равен 1000 рублей. Через каждый месяц размер вклада увеличивается на 5%. Через сколько месяцев размер вклада превысит 1100 рублей?

Answer 1

var mes, sum: real;
begin
mes:=0;
sum:=1000;
while sum<1100 do begin
sum:=sum+(sum*0.05);
mes:=mes+1;
end;
writeln (mes:2:0);
readln;
end.
Программа работает корректно. Выводит 2