input3

来自「編譯器的虛擬yacc工具」· 代码 · 共 20 行

program test (out);
var max,x: integer;
  function foo(x : integer) : integer; 
  begin
    if x = 0 then 
      foo:= 1
    else 
     foo := foo(x - 1)*2
  end;

begin
  max := 44;
  readln(x);
  if x > max then
     x := x - max
  else
     x := max - x;
  writeln(foo(x)) 
end.