Определите, является ли заданное натуральное число палиндромом (палиндром – число, одинаково читаемое справа налево и слева направо)- QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

INPUT "vvedite chislo: ", a
q = a
WHILE q
    b = b * 10 + q MOD 10
    q = q \ 10
WEND
IF a = b THEN PRINT "YES" ELSE PRINT "NO"

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

Определите, является ли заданное натуральное число палиндромом (палиндром – число, одинаково читаемое справа налево и слева направо)- QBasic(Бейсик)