记录编号 88110 评测结果 AAAAAAAAAA
题目名称 [HAOI 2012初中]01数字 最终得分 100
用户昵称 Gravatar甘罗 是否通过 通过
代码语言 Pascal 运行时间 0.011 s
提交时间 2014-02-16 18:44:02 内存使用 0.17 MiB
显示代码纯文本
program zht;
var
i,x,z,a,n:longint;
t:int64;
begin
assign(input,'torch.in');
assign(output,'torch.out');
reset(input);
rewrite(output);
readln(n);

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');
close(input);
close(output);
end.