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

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

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)