CLS
     PRINT "ЧИСЛА. ДВОИЧНАЯ ЗАПИСЬ КОТОРЫХ ПРЕДСТАВЛЯЕТ”
     PRINT” СИММЕТРИЧНУЮ ПОСЛЕДОВАТЕЛЬНОСТЬ"
     INPUT "Введите максимальное число до которого будет произведен поиск"; n
     PRINT "Десятичная запись                Двоичная запись"
     FOR i = 1 TO n
          k = i
          WHILE k > 0
               c = kmod2
               k = k \ 2
               c$ = (STR$(c)) + c$
               c1$ = c1$ + (STR$(c))
          WEND
          IF c$ = c1$ THEN PRINT i, , c$
          c$ = "": c1$ = ""
     NEXT i
     END