Question

150 баллов, господа. Решите задачу в Паскале с помощью ПРОЦЕДУР:
В 1626г индейцы продали остров Манхэттэн за 20 долларов. Если бы деньги были помещены в банк и прирост составлял бы n%, то каков
был бы их капитал в текущем году?

Answer 1

program money;
var n,x:real;
procedure count(percent:real);
begin
for var i:=1626 to 2014 do  x:=x+x*(percent / 100);
end;
begin
x:=20;
readln(n);
count(n);
writeln(x,' долларов ');
end.