Дано натуральное число n. Поменять первую и последнюю цифры в этом числе. Число n...

Question

Дано натуральное число n. Поменять первую и последнюю цифры в этом числе. Число n вводится с клавиатуры.

Comments

На Бэйсике задание нужно сделать.

---

QBasic?

Answer 1

Вариант первый (целый тип данных):

CLS
INPUT "n = ", n
A = n MOD 10
C = n
P = 1
WHILE (C \ 10 > 0)
P = P * 10
C = C \ 10
WEND
PRINT A * P + ((n - P * C) \ 10) * 10 + C
END



Вариант второй (строковый тип данных):

CLS
INPUT "n = ", n$
PRINT MID$(n$, LEN(n$), 1) + MID$(n$, 2, LEN(n$) - 2) + MID$(n$, 1, 1)