19 lines
294 B
Text
19 lines
294 B
Text
01.10 S J=0;S N=1;T %2
|
|
01.20 D 3;I (K-2)1.5
|
|
01.30 S N=N+1
|
|
01.40 I (J-8)1.2;Q
|
|
01.50 T N,!
|
|
01.60 S J=J+1
|
|
01.70 G 1.3
|
|
|
|
02.10 S A=K;S R=0
|
|
02.20 S B=FITR(A/10)
|
|
02.30 S R=R+(A-10*B)^2
|
|
02.40 S A=B
|
|
02.50 I (-A)2.2
|
|
|
|
03.10 F X=0,162;S S(X)=-1
|
|
03.20 S K=N
|
|
03.30 S S(K)=0
|
|
03.40 D 2;S K=R
|
|
03.50 I (S(K))3.3
|