ac1044.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 14 行

program tju1044;
var
  n,i:longint;
begin
  read(n);
  repeat
    inc(i);
    if (i mod 7=0) or (i mod 10=7) then begin
      writeln(i);
      dec(n);
    end;
  until n=0;
end.