?? 95-1.txt
字號:
const z = 0;kk1=1;
var head,foot,cock,rabbit,n:integer;
begin
n := z;
read(head,foot);
cock := kk1;
repeat
begin
rabbit := head-cock;
if cock*2+rabbit*4 = foot
then begin
write(cock,rabbit);
n := n+1
end;
cock := cock+1
end
until cock > head ;
if n= 0
then write(0,0)
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -