Выяснить, является ли число палиндромом - QBasic
Формулировка задачи:
Дано натуральное трехразрядное число а. Выяснить, является ли это число палиндромом (симметричным, например, 323, 121).
Решение задачи: «Выяснить, является ли число палиндромом»
textual
Листинг программы
CLS INPUT "N = "; n IF n MOD 10 = n \ 100 THEN PRINT "YES" ELSE PRINT "NO" END
Объяснение кода листинга программы
CLS— очистка экранаINPUTN =; n— ввод числа N и присвоение его значения переменной nIF n MOD 10 = n \ 100 THEN— проверка, является ли последняя цифра числа N равной его последней цифре, деленной на 10PRINTYES` — выводYES, если условие выполняется, иNO` в противном случае