求教

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 条评论

目前还没有评论...

信息

ID
1495
难度
5
分类
模拟 点击显示
标签
递交数
9619
已通过
3487
通过率
36%
被复制
16
上传者