program p1006;var i,n:integer; procedure check(w:integer); var s:string; ok:boolean; i:integer; begin str(w,s);ok:=false; for i:=1 to length(s) do if s[i]='7' then ok:=true; if (w mod 7=0) or ok then writeln(s); end;begin readln(n); for i:=1 to n do check(i);end.

program e1;var i,j,n,m:integer; s:string;begin readln(n); for i:=7 to n do begin if i mod 7=0 then writeln(i) else begin str(i,s); for j:=1 to length(s) do begin if s[j]='7' then begin val(s,m); writeln(m); break; end; end; end; end;end.VIP

这道简单,很多新手都会做

季,你注册个账号好不?别在后面添个VIP

敲七Time Limit:1s Memory Limit:1000k Total Submit:9463 Accepted:4238 下载样例程序(PE) --------------------------------------------------------------------------------Problem输出7和7的倍数，还有包含7的数字例如（17，27，37...70，71，72，73...） Input一个整数N。(N不大于30000) Output从小到大排列的不大于N的与7有关的数字，每行一个。 Sample Input20Sample Output71417