主题：问题求解
worm.
[专家分：180] 发布于 2008-09-14 22:25:00
给出一个整数N ，0<=N<=10000,N既不是2的倍数又不是5的倍数，求一整数S，S既是N的倍数，且S的每一位都是1。输出S的数位。
Sample Input
3
7
9901
Sample Output
3
6
12
我要具体程序 对的加分（注意 所有的数据都得过）
回复列表 （共3个回复）
沙发
wxj2008 [专家分：10] 发布于 2008-10-11 18:07:00
program my;
var n,p:integer;s:longint;
begin
repeat
write('n=');readln(n);
until (n mod 2<>0) and (n mod 5<>0);
p:=1;
s:=1;
while true do begin
s:=s mod n;
if s=0 then begin
writeln(p);
exit;
end
else begin
s:=s*10+1;
p:=p+1;
end;
end;
end.
板凳
worm. [专家分：180] 发布于 2008-10-15 12:26:00
soso
我做出来了
用高精度
3 楼
guoying2010 [专家分：10] 发布于 2010-01-10 20:05:00
北京清北学堂
这里有专业的资料和信息
优秀的高中生需要的话去看看
http://www.topschool.org/Index.html
我来回复
您所在位置：