niu1.txt

来自「c语言做的pl0编译器」· 文本 代码 · 共 18 行

var head, foot, cock, rabbit, n;
const z=0;
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.