Каждое из заданных натуральных чисел заменить числом, получающимся при записи его десятичных цифр в обратном порядке- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
INPUT "vvedite kol-vo chisel ", n
FOR i = 1 TO n
INPUT "vvedite chislo ", a&
b& = 0
DO
b& = b& * 10 + a& MOD 10
a& = a& \ 10
LOOP UNTIL a& = 0
PRINT b&
NEXT

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

Leave a Comment