Клиент внёс в банк х рублей.каждый месяц эта сумма увеличивается на р процентов. сколько будет у клиента денег через два месяца, три месяца, через полгода?

Var x,d,e: integer; //start balance and period p: real; //percent interest begin procedure multiply (n: real,o: real, f: integer); begin n: =n+(n*o*0.01); e: =e+1; writeln("amount of money after  ",e," month is  ",n); f: =f-1; if (f> 0) then multiply(n,o,f); end; writeln("enter start balance on account"); readln(x); writeln("enter the  percent of bank interest"); readln(p); writeln("enter the period"); readln(d); multiply(x,p,d); end.

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var a: =arrrandom(n,-9900,9900).select(x-> x/100); a.println;   writeln('количество отрицательных элементов ',a.where(x-> x< 0).count);   writeln('количество положительных элементов ',a.where(x-> x> 0).count) end. пример n= 9 -6.69 -71.7 -15.46 -23.53 51.7 2.86 -81.88 70.93 56.41 количество отрицательных элементов 5 количество положительных элементов 4

Const n=10;   var a: array[1..n] of real; i,k1,k2: integer; begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =10*random-5;   write(a[i]: 5: 2,'   ');   end; writeln; k1: =0; k2: =0 for i: =1 to n do   if a[i]> 0 then k1: =k1+1 else k2: =k2+1; writeln('k1 = ',k1,'   k2 = ',k2); end. пример: массив a: -4.38   -2.39   -0.58   1.36   2.48   -4.49   -3.41   -0.04   0.20   2.94   k1 = 4   k2 = 6