12 lines
559 B
Plaintext
12 lines
559 B
Plaintext
1 LET Y=0: LET X=0: LET Z=0: LET V=0: LET U=0: LET L=10: LET T=0: LET P=0: LET N=4: LET M=0: PRINT "limit trip. prim."
|
|
2 FOR U=2 TO INT (SQR (L/2)): LET Y=U-INT (U/2)*2: LET N=N+4: LET M=U*U*2: IF Y=0 THEN LET M=M-U-U
|
|
3 FOR V=1+Y TO U-1 STEP 2: LET M=M+N: LET X=U: LET Y=V
|
|
4 LET Z=Y: LET Y=X-INT (X/Y)*Y: LET X=Z: IF Y<>0 THEN GO TO 4
|
|
5 IF X>1 THEN GO TO 8
|
|
6 IF M>L THEN GO TO 9
|
|
7 LET P=P+1: LET T=T+INT (L/M)
|
|
8 NEXT V
|
|
9 NEXT U
|
|
10 PRINT L;TAB 8;T;TAB 16;P
|
|
11 LET N=4: LET T=0: LET P=0: LET L=L*10: IF L<=100000 THEN GO TO 2
|