Нужно полностью решение в паскале.

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

Question

Информатика

Марьяныч

17 мая, 19:43

Нужно полностью решение в паскале.

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

+5

Ответы (1)

Знаете ответ?

Слава · 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