Информатика 9 класс Паскаль Задачи на использование цикла ПОКА Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на 5% от имеющейся суммы. Определить, через сколько месяцев размер вклада превысит 7000 руб.​

Вопрос школьника по предмету Информатика

Информатика 9 класс
Паскаль
Задачи на использование цикла ПОКА
Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на 5% от имеющейся суммы. Определить, через сколько месяцев размер вклада превысит 7000 руб.​

Ответ учителя по предмету Информатика

Ответ:

var

sum:real;

i:integer;

begin

sum:=1000;

i:=0;

while sum<=7000 do

   begin

   sum:= sum + sum/100*5;

   i:= i+1;

end;

writeln(i);

end.

Объяснение: