frog.pas

来自「PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料」· PAS 代码 · 共 16 行

program frog(input,output);
var h,k,i,s:integer;
begin
  assign(input,'frog.in');
  assign(output,'frog.out');
  reset(input);
  rewrite(output);
readln(h,k);
s:=k+1;
for i:=1 to h do
    s:=s*2;   {用S:=S+S效率会更好}
writeln(s);
close(input);
close(output)
end.