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

Вопрос пользователя:

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

Илюха отвечает:

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

Добавить свой ответ