1 2 3 4 5 | input a$for i=len(a$) to 1 step-1if mid$(a$,i,1)<>" "then b$=mid$(a$,i,1)+b$ else exit fornextprint b$ |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 | input a$for i=len(a$) to 1 step-1if mid$(a$,i,1)<>" "then b$=mid$(a$,i,1)+b$ else exit fornextprint b$ |
Тестирование выполнено в программе QB64 ( Скачать )