Написать программу на языке паскаль: гражданин 1 марта открыл счет в банке, вложив 1000 руб. через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. опре-делить : а) за какой месяц величина ежемесячного увеличения вклада превысит 30 руб.; б) через сколько месяцев размер вклада превысит 1200 руб.

201

335

Посмотреть ответы 2

Ответы на вопрос:

Aidanа1307

Информатика

4,6(21 оценок)

Var s,ds: real; k1,k2: integer; begin //a s: =1000; ds: =0; k1: =0; while ds< =30 do begin ds: =s*0.02; s: =s+ds; k1: =k1+1; end; writeln('k1 = ',k1); //б s: =1000; ds: =0; k2: =0; while s< =1200 do begin s: =1.02*s; k2: =k2+1; end; writeln('k2 = ',k2); end. результат: k1 = 22 k2 = 10