Palindromic primes: Difference between revisions
m
→{{header|S-BASIC}}: minor tweak
m (→{{header|ALGOL 68}}: tweak) |
m (→{{header|S-BASIC}}: minor tweak) |
||
Line 1,217:
rem - return true if n is palindromic, otherwise false
function
var i, j
var s = string
s = str$(n)
Line 1,228:
j = j - 1
end
end
rem - return n mod m
Line 1,262 ⟶ 1,258:
for i = 2 to 1000
if isprime(i) then
if
begin
print using "##### ";i;
|