program p1044;var n,i,t:longint; ok:boolean; function check(w:longint):boolean; var s:string; j:integer; ko:boolean; begin str(w,s);ko:=false;j:=1; while (j<=length(s)) and not ok do begin if s[j]='7' then ok:=true; inc(j); end; check:=ko; end;begin //assign(output,'D:/tongji/answer.pas');rewrite(output); readln(n); t:=0;i:=1; while t

大家看看为什么不能A啊??

不用了,已经会了,过一段时间后就会上传了

敲7-版本2Time Limit:1s Memory Limit:1000k Total Submit:5828 Accepted:2386 下载样例程序(PE)下载样例程序(ELF) --------------------------------------------------------------------------------Problem给定正整数N(N<=100,000)，求数列{An}的前N项 数列{An}满足如下条件： 1.该数列包含自然数集中所有能被7整除的数2.该数列包含自然数集中所有个位上含7的数，如17,27,1773.该数列不包含自然数集中其他的数4.该数列中的数有小到大有序排列5.该数列中任意两项互不相同 Input一个正整数N(N<=100,000) Output数列{An}的前N项，每项占单独一行 Sample Input3Sample Output71417