Технический форум - Задачка в QuickBasic

Технический форум (http://www.tehnari.ru/index.php)

- Basic (http://www.tehnari.ru/forumdisplay.php?f=127)

- - Задачка в QuickBasic (http://www.tehnari.ru/showthread.php?t=82954)

alexeyTTT

24.12.2012 16:28

Задачка в QuickBasic

Проверить, является ли заданное натуральное число палиндромом, то есть таким
числом, десятичная запись которого читается одинаково слева направо и справа налево.

iks2	24.10.2016 11:28

Код:

DECLARE FUNCTION M$ (n!)

CLS

DIM SHARED A AS STRING



INPUT "A = "; A

n = LEN(A)



FOR i = 1 TO n \ 2

   IF M(i) <> M(n - (i - 1)) THEN

      PRINT "NO"

      END

   END IF

NEXT



PRINT "YES"

END



FUNCTION M$ (n)

   M = MID$(A, n, 1)

END FUNCTION

Часовой пояс GMT +4, время: 06:01.