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

Answer 2

Конечно, давайте напишем программу на языке BASIC для поиска симметричных натуральных чисел в заданном диапазоне от A до B. Вам нужно учитывать, что BASIC не так часто используется в настоящее время, и в различных версиях BASIC существуют небольшие различия. Я предложу программу на примере простого BASIC-диалекта.

10 INPUT "Введите значение A: ", A
20 INPUT "Введите значение B: ", B

30 FOR num = A TO B
40   IF IsSymmetric(num) THEN
50     PRINT num
60   END IF
70 NEXT num
80 END

90 FUNCTION IsSymmetric(n)
100  original = n
110  reversed = 0

120  WHILE n > 0
130    digit = n MOD 10
140    reversed = reversed * 10 + digit
150    n = INT(n / 10)
160  WEND

170  IF original = reversed THEN
180    IsSymmetric = -1
190  ELSE
200    IsSymmetric = 0
210  END IF
220 END FUNCTION

Объяснение программы:

1. Сначала мы запрашиваем значения A и B с клавиатуры. 2. Затем мы используем цикл FOR для перебора чисел от A до B. 3. Для каждого числа вызываем функцию `IsSymmetric`, которая проверяет, является ли число симметричным. 4. Если число симметричное, оно выводится на экран.

Обратите внимание, что данная программа предполагает использование базового алгоритма для определения симметричности числа путем инвертирования его цифр.

Уточните, если у вас есть какие-либо дополнительные требования или если вы используете конкретный диалект BASIC (например, QBasic, FreeBASIC и т.д.).