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

101

304

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

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

asilwa1190

Информатика

4,8(50 оценок)

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.

сюзи27

Информатика

4,7(74 оценок)

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! function countperfect(n: integer): array of biginteger; begin var cat: =new biginteger[51]; (cat[0],cat[1]): =(1,1); for var i: =2 to n do for var j: =0 to i-1 do cat[i]+=cat[j]*cat[i-j-1]; result: =cat end; begin var cat: =countperfect(50); readlnstring.tointegers.select(n-> cat[n div 2]).println; end. пример 1 43 19 42 7 1 24466267020 4862 24466267020 5