10 INPUT "Введите число: ", num 20 LET revNum = "" 30 FOR i = LEN(num) TO 1 STEP -1 40 LET revNum = revNum + MID(num, i, 1) 50 NEXT i 60 PRINT "Число в обратном порядке: "; revNum 70 END
Пример работы программы: Введите число: 12345 Число в обратном порядке: 54321
10 INPUT "Введите число: ", num
20 LET revNum = ""
30 FOR i = LEN(num) TO 1 STEP -1
40 LET revNum = revNum + MID(num, i, 1)
50 NEXT i
60 PRINT "Число в обратном порядке: "; revNum
70 END
Пример работы программы:
Введите число: 12345
Число в обратном порядке: 54321