Предмет: Информатика,
автор: romankuznetsov1
Клиент внёс в банк Х рублей.Каждый месяц эта сумма увеличивается на Р процентов.
Сколько будет у клиента денег через два месяца,три месяца,через полгода?
Ответы
Автор ответа:
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.
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.
Автор ответа:
0
procedure multiply (n:real,o:real, f:integer); пишет ожидалсяопиратор
Автор ответа:
0
а так? procedure multiply (n:real;o:real; f:integer);
Похожие вопросы
Предмет: География,
автор: Аноним
Предмет: Биология,
автор: nikadronikqk
Предмет: Қазақ тiлi,
автор: zhanmoldaulty
Предмет: Алгебра,
автор: glinnikov2014
Предмет: Биология,
автор: kruglomariya