19 lines
333 B
Text
19 lines
333 B
Text
100->T
|
|
2->N
|
|
{17,78,19,23,29,77,95,77, 1,11,13,15,15,55}->LA
|
|
{91,85,51,38,33,29,23,19,17,13,11,14, 2, 1}->LB
|
|
Dim(LA)->U
|
|
T->Dim(LC)
|
|
For(I,1,T)
|
|
1->J: 1->F
|
|
While J<=U and F=1
|
|
If remainder(N,LB(J))=0
|
|
Then
|
|
Disp N
|
|
N->LC(I)
|
|
iPart(N/LB(J))*LA(J)->N
|
|
0->F
|
|
End
|
|
J+1->J
|
|
End
|
|
End
|