Запишите на языке паскаль алгоритм решения . клиент - вопрос №99012611 от kuznetovalaura 01.06.2022 23:08

Question

Информатика: Запишите на языке паскаль алгоритм решения . клиент некоторого банка 1 марта открыл счёт, вложив 10000 руб. через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. определить через сколько месяцев размер вклада превысит 12000 руб. !

kuznetovalaura · Answer

var

month, sum: real;

begin

sum := 10000;

month := 0;

while (sum < 12000) do

begin

sum := sum + (sum / 100) * 2;

month := month + 1;

end;

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

end.