cock.pl

来自「pl/0编译器,生成汇编语言,java代码,初学者都能看明白,并且补充很多的注释」· PL 代码 · 共 18 行

const z=0;
var head,foot,cock,rabbit,n;
begin
   n:=z;
   read(head,foot);
   cock:=1;
   while cock<=head do
   begin
      rabbit:=head - cock;
      if cock*2+rabbit*4=foot then
      begin
         write(cock,rabbit);
         n:=n+1
      end;
      cock:=cock+1;
   end;
   if n=0 then write(0,0)
end.