Целочисленная арифметика и сложные логические условия

Целочисленная арифметика и сложные условия.

Число N вводится с клавиатуры(n<32000). Определить среднюю цифру числа.

SICLA1.BAS

¦CLS

¦1 INPUT "vesti n"; n

¦IF n <> FIX(n) OR n > 32000 THEN 1

¦a = n

¦WHILE a <> 0

¦a = a \ 10

¦k = k + 1

¦WEND

¦PRINT "k="; k;

¦IF k = 1 OR k = 2 OR k = 4 THEN PRINT "net resania": END

¦IF k = 3 THEN c = (n \ 10 ^ (k - 2)) MOD 10 ELSE c = (n \ 10 ^ (k - 3)) MOD 10

¦PRINT "c="; c

Число N вводится с клавиатуры(n<32000). Верно ли, что цифры расположенные в старшем и младшем разряде равны?

Без использования массива;

С использованием массива.

2а) SICLA2.BAS --

¦CLS

¦1 INPUT "vesti n"; n

¦IF n <> FIX(n) OR n > 32000 THEN 1

¦b = n MOD 10

¦a = n

¦WHILE a <> 0

¦a = a \ 10

¦k = k + 1

¦WEND

¦IF k = 1 THEN PRINT "net resania": END

¦ c = n \ 10 ^ (k - 1)

¦IF b = c THEN PRINT "yes" ELSE PRINT "no"

2б)

¦CLS

¦1 INPUT "vesti a"; a

¦IF a <> FIX(a) OR a > 32000 THEN 1

¦WHILE a <> 0

¦

Массив формируется с младшего разряда, т.е.

При вводе 1234 имеем массив 4, 3, 2,1

¦k = k + 1: d(k) = b

¦a = a \ 10

¦WEND

¦FOR i = 1 TO k

¦PRINT d(i)

¦NEXT i

¦IF k = 1 THEN PRINT "net resania": END

¦IF d(1) = d(k) THEN PRINT "yes" ELSE PRINT "no"

Будут ли цифры, стоящие в старшем, среднем и младшем разрядах одинаковыми, если число N< 32000.

Верно ли, что цифры числа N образуют строго возрастающую последовательность?

Адрес публикации: https://www.prodlenka.org/metodicheskie-razrabotki/174004-celochislennaja-arifmetika-i-slozhnye-logiche