Задачка в QuickBasic

alexeyTTT · 24.12.2012, 16:28

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

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

24.12.2012, 16:28	#1 (permalink)
alexeyTTT Новичок Регистрация: 16.12.2012 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задачка в QuickBasic Проверить, является ли заданное натуральное число палиндромом, то есть таким числом, десятичная запись которого читается одинаково слева направо и справа налево.

24.10.2016, 11:28	#2 (permalink)
iks2 Member Регистрация: 22.10.2016 Сообщений: 62 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Код: 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

24.12.2012, 16:28
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	В этих топиках может содержаться интересная информация для вас Задачка на С++ Задачка в Делфи Задачка в C# по матрице Вот задачка Задачка по электротехнике

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070