Клиент открыл счёт в банке 1 марта, вложив 1000 рублей.каждый месяц размер вклада увеличивается на 2 процента.определить за какой месяц величина ежемесячного увеличения вклада превысит 50 рублей.напишите, , программу.

program vidcvnjiod;

uses crt;

var p,a: real;

      m: integer;

begin

clrscr;

a: =1000;

p: =(a*2)/100;

m: =3;

repeat

a: =a+p;

m: =m+1;

until a> 1050;

m: =m mod 12;

case m of

0: writeln('декабрь');

1: writeln('январь');

2: writeln('февраль');

3: writeln('март');

4: writeln('апрель');

5: writeln('май');

6: writeln('июнь');

7: writeln('июль');

8: writeln('август');

9: writeln('сентябрь');

10: writeln('октябрь');

11: writeln('ноябрь');

readln;

end.

откомпиль, если ошибки, то исправь, но вроде не должно быть

в программе а=1000

отсчитывается процент

идет цикл пока сумма не больше 1050

прибавляется процент и месяц идет дальше

затем выбор месяца

 

Var mas: array [1..100, 1..100] of integer;     n, m, i, j, k, ok: integer; begin   write("введите n и m: ");   readln(n, m);   for i: =1 to n do   for j: =1 to m do     read(mas[i,j]);   for i: =1 to n do   for j: =i+1 to n do   begin     ok: =1;     for k: =1 to m do     if mas[i,k]=mas[j,k]     then       begin       ok: =0;       break;       end;     if (ok=1)     then     writeln(i, j: 3);   end; end.

Можно заметить, что на "четной" операции единица сдвигается на одну позицию вперед, т.к. у нас четное кол-во карточек перекладывается на этом ходу и единица написана на левой центральной карточке  на "нечетной" операции единица лежит в центре и она никуда не сдвигается, т.е. за каждые два хода единица двигается на одну позицию вперед для n карточек, единица будет лежать на позиции:   n/2 + 1, если n - четное (n-1)/2 + 1, если n - нечетное для 400 карточек:   400/2 + 1 = 201 ответ: на 201-ой позиции