解密QQ号
新学期开始了,小哈是小哼的新同桌(小哈是个小美女哦~),小哼向小哈询问 QQ号,
小哈当然不会直接告诉小哼啦,原因嘛你懂的。所以小哈给了小哼一串加密过的数字,同时
小哈也告诉了小哼解密规则。规则是这样的:首先将第 1个数删除,紧接着将第 2 个数放到
这串数的末尾,再将第 3 个数删除并将第 4 个数放到这串数的末尾,再将第 5 个数删除……
直到剩下最后一个数,将最后一个数也删除。按照刚才删除的顺序,把这些删除的数连在一
起就是小哈的 QQ啦。现在你来帮帮小哼吧。小哈给小哼加密过的一串数是“6 3 1 7 5 8 9 2 4”。
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var arr:array[0..100] of integer; s:string; i,head,tail:integer; begin s:=''; arr[0]:=0; arr[1]:=6; arr[2]:=3; arr[3]:=1; arr[4]:=7; arr[5]:=5; arr[6]:=8; arr[7]:=9; arr[8]:=2; arr[9]:=4; head:=1; tail:=10; for i:= head to tail do begin if head=tail then break; s:=s+inttostr(arr[head]); showmessage(s); head:=head+1; arr[tail]:=arr[head]; tail:=tail+1; head:=head+1; end; showmessage('QQ号是:'+s); end; end.