cock.pl

来自「Win32 Console下C++实现的PL/0语言编译程序」· PL 代码 · 共 19 行

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);
      write(rabbit);
      n:=n+1;
    end;
    cock := cock+1;
  end;
  if n=0 then write(0,0)
end.