Question

составить программу переворачивания слова (попугай - йагупоп) . Через программу QBasic.

Answer 1

INPUT "vvedite slovo s = "; s$
FOR i = LEN(s$) TO 1 STEP -1
PRINT MID$(s$, i, 1);
NEXT i
END

 

получение новой строки

INPUT "vvedite slovo s = "; s$
FOR i = LEN(s$) TO 1 STEP -1
r$ = r$ + MID$(s$, i, 1)
NEXT i
PRINT r$
END