1.out

来自「pl0」· OUT 代码 · 共 18 行

   0  const z=10;
   1  var head,foot,cock,rabbit,n;
   1  begin
   2     n:=z;
   4     read(head,foot);
   6     cock:=1;
   8     while cock<=head do
  12     begin
  12        rabbit:=head-cock;
  16        if cock*2+rabbit*4=foot then
  25        begin
  26           write(cock,rabbit);
  30           n:=n+1
  32        end;
  34        cock:=cock+1;
  38     end;
  39     if n=0 then write(0,0)
  47  end.