Цикл

[Joker<777>]

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

[D@rkD@iver]

сделаю за WMR

[Niro]

Проверяй код

uses crt;
   var i,k,proc:integer;
        vkl,pr,ch,ch1:real;
BEGIN
   clrscr;
   ch1:=1000;
   ch:=1000;
   i:=0;
 
  repeat
      i:=i+1;
      ch1:=ch1+(ch1*0.02);
   until ch1>=1200;

   repeat
      pr:=ch*0.02;
      ch:=ch+pr;
      k:=k+1;
   until pr>=30;

   writeln('Через ',i,' месяцев размер вклада превысит 1200 руб');
   writeln('                                                     ');
   writeln('За ',k,'-ый месяц прибыль превысит 30 руб');
END.

[Grag]

Niro, признай, осознай и исправь...
Вот это
"proc/100"
лучше вычислить один раз за пределами всех циклов, ибо это есть инвариантное вычисление, не зависящее от параметра цикла...