Ввести с клавиатуры текст,так чтобы выводил все кроме последних 2 букв- QBasic(Бейсик)

INPUT "vvedite stroku", a$
PRINT LEFT$(a$, LEN(a$) - 2)

Следующий вариант

INPUT "vvedite text ", a$
FOR i = 1 TO LEN(a$) - 2
    b$ = b$ + MID$(a$, i, 1)
NEXT
PRINT b$

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment