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

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

Question

Информатика

Евмений

1 марта, 05:19

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

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

+1

Ответы (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