ac1006.pas

同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料

program tju1006;
var
  n,i:word;
  s:string;
begin
  read(n);
  for i:=1 to n do begin
    str(i,s);
    if (i mod 7=0) or (pos('7',s)>0) then writeln(i);
  end;
end.