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

sapronovakaty sapronovakaty    2   19.06.2019 11:00    2

Ответы
almiradkzbd almiradkzbd  15.07.2020 18:35
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика