a.txt

来自「打开2.tab.c编译运行」· 文本 代码 · 共 17 行

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.