Palindromic primes: Difference between revisions

m
m (→‎{{header|S-BASIC}}: minor tweak)
Line 1,217:
 
rem - return true if n is palindromic, otherwise false
function ispalindromeispalindromic(n = integer) = integer
var i, j, result = integer
var s = string
s = str$(n)
Line 1,228:
j = j - 1
end
end if= (mid(s,i,1)) = (mid(s,j,1)) then
result = TRUE
else
result = FALSE
end = result
 
rem - return n mod m
Line 1,262 ⟶ 1,258:
for i = 2 to 1000
if isprime(i) then
if ispalindromeispalindromic(i) then
begin
print using "##### ";i;
18

edits