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

Valeria25092006 Valeria25092006    2   07.10.2019 19:10    0

Ответы
ученик1523 ученик1523  10.10.2020 02:15

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика