Предмет: Информатика, автор: romankuznetsov1

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

Ответы

Автор ответа: Pauel
0
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.
Автор ответа: romankuznetsov1
0
procedure multiply (n:real,o:real, f:integer); пишет ожидалсяопиратор
Автор ответа: Pauel
0
а так? procedure multiply (n:real;o:real; f:integer);
Похожие вопросы
Предмет: География, автор: Аноним
Предмет: Биология, автор: nikadronikqk