Вводится число N. Нужно среди натуральных чисел найти такое число, у которого номер N среди палиндромных чисел — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
INPUT "vvedite nomer palindroma ", n
DIM a(10)
DO
    k = k + 1
    s = k
    m = 0
    f = 0
    DO
        m = m + 1
        a(m) = s MOD 10
        s = s \ 10
    LOOP UNTIL s = 0
    FOR i = 1 TO m \ 2
        IF a(i) <> a(m - i + 1) THEN f = 1
    NEXT
    IF f = 0 THEN kol = kol + 1
LOOP UNTIL kol = n
PRINT k

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment