Question

Найти симметричные натуральные числа из промежутка от А до В (А и В вводятся с клавы). basic, желательно basic256.

Answer 1

# Симметричные числа
input "Нижняя граница диапазона = ", a
input "Верхняя граница диапазона = ", b
if b<a then
   t=a
   a=b
   b=t
end if
if a<10 then
   print "Числа должны быть по крайней мере двухзначными"
   goto Fin
end if
for i=a to b
   s$=i
   n=length(s$)
   k=n\2
   for j=1 to k
      if mid(s$,j,1)<> mid(s$,n-j+1,1) then goto NonSimm
   next j
   print i
NonSimm:
next i
Fin:
end

Тестовое решение:
Нижняя граница диапазона = 954
Верхняя граница диапазона = 1423
959
969
979
989
999
1001
1111
1221
1331