fork download
copy 
  1. ' Name:     Special Pythagorean triplet
  2. ' Created:  1401-5-13
  3. ' Language: X11Basic
  4.  
  5. MAXN = 2000000
  6. DIM IsNat(MAXN+1)  
  7. IsNat(1) = 1
  8. sum& = 0
  9. for i = 2 to MAXN  
  10.         if IsNat(i) = 0 then
  11.                 sum& = sum& + i
  12.                 j = 2*i
  13.                 while j < MAXN
  14.                         IsNat(j) = 1
  15.                         j = j+i
  16.                 wend
  17.         endif
  18. next i
  19. PRINT sum&
  20.  
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/D27kRi
language:
Text (text 6.10)
created:
3 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!