level 8
把123456789这个数乘以一个什么数,能使它的结果不但不含零,而且仍然是 由1,2,3,4,5,6,7,8,9这九个数字组成的,只是顺序不同而已.
[
123456789*2=246913578 ;
123456789*4=493827156 ;
123456789*5=617283945
123456789*7=864197532 ;
123456789*8=987654312 ]
2014年03月24日 13点03分
level 8
![[泪]](/static/emoticons/u6cea.png)
大神在哪里
level 8
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
为何要@我，题目看不懂的说![[乖]](/static/emoticons/u4e56.png)
level 11
![[太开心]](/static/emoticons/u592au5f00u5fc3.png)
level 7
![[冷]](/static/emoticons/u51b7.png)
乘完判断一下就行了
level 2
FOR i:=1 to 9
FOR j:=1 to 9
FOR k:=1 to 9
FOR m:=1 to 9
FOR b:=1 to 9
FOR x:=1 to 9
FOR d:=1 to 9
FOR f:=1 to 9
FOR g:=1 to 9
FOR r:=1 to 9
begin
if 123456789*r=1000*i点点点点
气死老师
2014年04月06日 09点04分
10
FOR j:=1 to 9
FOR k:=1 to 9
FOR m:=1 to 9
FOR b:=1 to 9
FOR x:=1 to 9
FOR d:=1 to 9
FOR f:=1 to 9
FOR g:=1 to 9
FOR r:=1 to 9
begin
if 123456789*r=1000*i点点点点
气死老师
再加上if i<>j点点点
2014年04月06日 09点04分
level 12
for i：1 to 9 do
begin
s：=i*123456789；
【取各位数】
if （全部相加=45）and（互不相等）then write（s）；
end；
我是新人我什么都不知道
≮第一次评论，好紧张啊，有没有潜规则，用不用脱啊，该怎么说啊，打多少字才显的有文采啊，我写的这么好会不会太招遥，写的这么深奥别人会不会看不懂啊，好激动啊，怎么才能装成是经常评论的样子，好紧张啊。≯
2014年04月07日 08点04分
11
begin
s：=i*123456789；
【取各位数】
if （全部相加=45）and（互不相等）then write（s）；
end；
我是新人我什么都不知道
≮第一次评论，好紧张啊，有没有潜规则，用不用脱啊，该怎么说啊，打多少字才显的有文采啊，我写的这么好会不会太招遥，写的这么深奥别人会不会看不懂啊，好激动啊，怎么才能装成是经常评论的样子，好紧张啊。≯
![[玫瑰]](/static/emoticons/u73abu7470.png)
![[开心]](/static/emoticons/u5f00u5fc3.png)
![[OK]](/static/emoticons/OK.png)
≮第一次评论，好紧张啊，有没有潜规则，用不用脱啊，该怎么说啊，打多少字才显的有文采啊，我写的这么好会不会太招遥，写的这么深奥别人会不会看不懂啊，好激动啊，怎么才能装成是经常评论的样子，好紧张啊。≯
level 2
level 9
Type
Arr=Array[1..101] Of Integer;
Var
i,j,p,k,code,L,num,tp:Integer;
s: String;
a,aa,time,b,temp:Arr;
Procedure Mutiply(a, b:Arr;Var c:Arr;t:Integer);
Var
i, j: Integer;
Begin
FillChar(c, SizeOf(c), 0);
For i:=1 To t Do
For j:=1 To t-i+1 Do
Begin
c[i+j-1]:=a[i]*b[j]+c[i+j-1];
c[i+j]:=c[i+j]+c[i+j-1] Div 10;
c[i+j-1]:=c[i+j-1] Mod 10;
End;
End;
Procedure Mutiply(a:Arr;b:Integer;Var c:Arr;Var L:Integer);
Var
i: Integer;
Begin
FillChar(c,SizeOf(c),0);
For i:=1 To L Do
Begin
c[i]:=c[i]+a[i]*b;
c[i+1]:=c[i] Div 10;
c[i]:=c[i] Mod 10;
End;
If c[L+1]<>0 Then
Inc(L);
End;
Begin
ReadLn(s);
Val(Copy(s, Pos(' ', s)+1, Length(s)-Pos(' ', s)), k, code);
Delete(s, Pos(' ', s), Length(s)-Pos(' ', s)+1);
For i:=1 To Length(s) Do
Val(s[i], a[Length(s)-i+1], code);
aa:=a;
FillChar(time, SizeOf(time), 0);
time[1] := 1;
L := 1;
For i:=1 To k Do
Begin
For j:=1 To i Do
b[j] := aa[j];
tp := b[i];
num := 0;
Repeat
Mutiply(b, a, b, i);
Inc(num);
Until (num > 10) Or (b[i] = tp);
If (b[i] <> tp) Then Begin
Write(-1);
Close(Input);
Close(Output);
Halt(0);
End;
temp := a;
For j:=1 To num-1 Do
Mutiply(a, temp, a, k);
Mutiply(time, num, time, L);
End;
For i:=L DownTo 1 Do Write(time[i]);
End.
2014年07月02日 12点07分
16
Arr=Array[1..101] Of Integer;
Var
i,j,p,k,code,L,num,tp:Integer;
s: String;
a,aa,time,b,temp:Arr;
Procedure Mutiply(a, b:Arr;Var c:Arr;t:Integer);
Var
i, j: Integer;
Begin
FillChar(c, SizeOf(c), 0);
For i:=1 To t Do
For j:=1 To t-i+1 Do
Begin
c[i+j-1]:=a[i]*b[j]+c[i+j-1];
c[i+j]:=c[i+j]+c[i+j-1] Div 10;
c[i+j-1]:=c[i+j-1] Mod 10;
End;
End;
Procedure Mutiply(a:Arr;b:Integer;Var c:Arr;Var L:Integer);
Var
i: Integer;
Begin
FillChar(c,SizeOf(c),0);
For i:=1 To L Do
Begin
c[i]:=c[i]+a[i]*b;
c[i+1]:=c[i] Div 10;
c[i]:=c[i] Mod 10;
End;
If c[L+1]<>0 Then
Inc(L);
End;
Begin
ReadLn(s);
Val(Copy(s, Pos(' ', s)+1, Length(s)-Pos(' ', s)), k, code);
Delete(s, Pos(' ', s), Length(s)-Pos(' ', s)+1);
For i:=1 To Length(s) Do
Val(s[i], a[Length(s)-i+1], code);
aa:=a;
FillChar(time, SizeOf(time), 0);
time[1] := 1;
L := 1;
For i:=1 To k Do
Begin
For j:=1 To i Do
b[j] := aa[j];
tp := b[i];
num := 0;
Repeat
Mutiply(b, a, b, i);
Inc(num);
Until (num > 10) Or (b[i] = tp);
If (b[i] <> tp) Then Begin
Write(-1);
Close(Input);
Close(Output);
Halt(0);
End;
temp := a;
For j:=1 To num-1 Do
Mutiply(a, temp, a, k);
Mutiply(time, num, time, L);
End;
For i:=L DownTo 1 Do Write(time[i]);
End.
