zadach4.BAS

{* Задача4 *}

REM basic

' Получить предложение в обратном порядке следования символов.


ss$=""
INPUT "Введите предложение", s$
For I=LEN(s$) To 1 Step -1
ss$=ss$+Mid$(s$,I,1)
Next
PRINT "Исправленная строка: ", ss$
End