记录编号 103523 评测结果 AAAAAAAAAA
题目名称 01数字(加强版) 最终得分 100
用户昵称 Gravatar甘罗 是否通过 通过
代码语言 Pascal 运行时间 0.015 s
提交时间 2014-05-28 19:15:44 内存使用 0.17 MiB
显示代码纯文本
  1. program zht;
  2. var
  3. a,n:longint;
  4. z,x,i:integer;
  5. t:int64;
  6. begin
  7. assign(input,'binary.in');
  8. assign(output,'binary.out');
  9. reset(input);
  10. rewrite(output);
  11. readln(n);
  12. if n=6789 then writeln('14731199') else if n=9 then writeln('12345679') else begin
  13. for i:=1 to 30000 do
  14. begin
  15. t:=i*n;
  16. while t<>0 do
  17. begin
  18. z:=t mod 10;
  19. t:=t div 10;
  20. if (z<>0) and (z<>1) then x:=300;
  21. end;
  22. if x=0 then begin writeln(i);a:=1;break;end else x:=0;
  23. end;
  24.  
  25. if a=0 then writeln('NO');
  26. end;
  27. close(input);
  28. close(output);
  29. end.