Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Задача 1.
Сформировать по строке а$ новую строку по правилу: если слово имеет нечетную длину, удалить в нем среднюю букву
Qbasic

Ответ оставил Гость

INPUT "Vvedi stroku: ", s$
n = LEN(s$)
IF n MOD 2 <> 0 THEN
   s$ = LEFT$(s$, (n - 1) / 2) + RIGHT$(s$, (n - 1) / 2)
END IF
PRINT s$
END