Составить программу, определяющую, на какую букву начинается второе слово в предложении — QBasic(Бейсик)

INPUT "vvedite predlojenie ", a$
FOR i = LEN(a$) TO 1 STEP -1
    IF MID$(a$, i, 1) = " " THEN b$ = MID$(a$, i + 1, 1)
NEXT
PRINT "eto bukva="; b$

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

Leave a Comment