17 lines
245 B
Text
17 lines
245 B
Text
01.10 F N=0,2500;D 2
|
|
01.20 Q
|
|
|
|
02.10 D 3
|
|
02.20 I (N-S)2.4,2.3,2.4
|
|
02.30 T %5,N,!
|
|
02.40 R
|
|
|
|
03.10 S Z=N;S L=0
|
|
03.20 G 3.7
|
|
03.30 S K=FITR(Z/10)
|
|
03.40 S L=L+1
|
|
03.50 S D(L)=Z-K*10
|
|
03.60 S Z=K
|
|
03.70 I (-Z)3.3
|
|
03.80 S S=0
|
|
03.90 F I=1,L;S S=S+D(L-I+1)^I
|