Дано число n, перевернуть это число — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
CLS
INPUT n
m = n MOD 10
n = n \ 10
WHILE n > 0
m = m * 10 + n MOD 10
n = n \ 10
WEND
PRINT m

Похожие записи/страницы: