34 lines
450 B
Plaintext
34 lines
450 B
Plaintext
OpenConsole()
|
|
limite.i = 2200
|
|
s.i = 3
|
|
Dim l.i(limite)
|
|
Dim ladd.i(limite * limite * 2)
|
|
|
|
For x.i = 1 To limite
|
|
x2.i = x * x
|
|
For y = x To limite
|
|
ladd(x2 + y * y) = 1
|
|
Next y
|
|
Next x
|
|
|
|
For x.i = 1 To limite
|
|
s1.i = s
|
|
s.i + 2
|
|
s2.i = s
|
|
For y = x +1 To limite
|
|
If ladd(s1) = 1
|
|
l(y) = 1
|
|
EndIf
|
|
s1 + s2
|
|
s2 + 2
|
|
Next y
|
|
Next x
|
|
|
|
For x.i = 1 To limite
|
|
If l(x) = 0
|
|
Print(Str(x) + " ")
|
|
EndIf
|
|
Next x
|
|
Input()
|
|
CloseConsole()
|