RosettaCodeData/Task/Summarize-primes/Yabasic/summarize-primes.basic

13 lines
227 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
//import isprime
print 1, chr$(9), 2, chr$(9), 2
sum = 2
n = 1
for i = 3 to 999 step 2
if isPrime(i) then
sum = sum + i
n = n + 1
if isPrime(sum) print n, chr$(9), i, chr$(9), sum
fi
next i
end