В сбербанк сделан вклад на S рублей. Определить величину вклада через N лет, если...

Question

В сбербанк сделан вклад на S рублей. Определить величину вклада через N лет, если известно, что ежегодный вклад увеличивается на P%. Решить в PascalABC

Answer 1

Var
n:integer;
i:byte;
s,p:real;

begin

readln(s,n,p);

for i:=1 to n do 
s:=s*(1+p/100);

writeln(s);

end.