摘要：procedure TForm1.Button1Click(Sender: TObject); var queue:TQueue; i:integer; s:string; begin queue.head:=1; queue.tail:=1; for i:=1 to 9 do begin queu 阅读全文

摘要：新学期开始了，小哈是小哼的新同桌（小哈是个小美女哦~），小哼向小哈询问 QQ号，小哈当然不会直接告诉小哼啦，原因嘛你懂的。所以小哈给了小哼一串加密过的数字，同时小哈也告诉了小哼解密规则。规则是这样的：首先将第 1个数删除，紧接着将第 2 个数放到这串数的末尾，再将第 3 个数删除并将第 4 个数放到 阅读全文

摘要：var arr:array[0..5] of integer; i,j:integer; itemp:integer; begin arr[0]:=1; arr[1]:=71; arr[2]:=5; arr[3]:=31; arr[4]:=2; arr[5]:=12; for i:=0 to 5 d 阅读全文

摘要：var arr:array[0..5] of integer; i,j:integer; itemp:integer; begin arr[0]:=1; arr[1]:=71; arr[2]:=5; arr[3]:=31; arr[4]:=2; arr[5]:=12; for i:=5 downto 阅读全文

摘要：var arr:array[0..10] of integer; arr2:array[0..5] of integer; i,j:integer; begin for i:=0 to 10 do arr[i]:=0; arr2[0]:=2; arr2[1]:=3; arr2[2]:=7; arr2 阅读全文