a.txt

打开2.tab.c编译运行

begin
   n:=m;
   read(h,f);
   count:=1;
   while count<=h do
   begin
     a:=h-count;
     if count*2+a*4=f then
     begin
        write(count,a);
        n:=n+1;
     end;
     count:=count+1;
   end;
   if n=0 then write(0,0)
end.