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

if a=0 then writeln('NO');
end;
close(input);
close(output);
end.