- 笨小猴
- 2012-10-16 22:14:10 @
view sourceprint?01 label 1;
02 var q,w,e:integer;
03 a,c,d:array[1..100]of integer;
04 begin
05 for q:=1 to 100 do begin
06 read(a[q]);
07 if ord(a[q])=13 then goto 1;
08 c[q]:=0;
09 end;
10 for q:=1 to 100 do begin
11 for w:=1 to 99do
12 if a[q]=a[q+w]then c[q]:=c+1;
13 end;
14 for q:=1 to 100 do begin
15 d[q]:=c[q];
16 end;
17 for q:=1 to 100 do begin
18 for w:=1 to 99 do
19 if d[q]d[q+w]then c[q]:=c[q+w];
21 end;
22 e:=d[1]-c[1];
23 for q:=2 to e-1 do
24 if (e mod q=0)then begin
25 writeln('No Answer');
26 writeln('0');
27 goto 1;
28 end;
29 writeln('Lucky Word');
30 writeln(e);
31 1:end.
0 条评论
目前还没有评论...