test2.txt

来自「对pl0语言程序的语法分析源程序」· 文本 代码 · 共 17 行

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.