bankint.pas

来自「Magio牛的usaco源代码」· PAS 代码 · 共 16 行

{
PROB:bankint
LANG:PASCAL
}

program bankint;
var
  r,m,y:real;
begin
  assign(input,'bankint.in');reset(input);
  assign(output,'bankint.out');rewrite(output);
  read(r,m,y);
  writeln(trunc(m*power(1+r/100,y)));
  close(input);close(output);
end.