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