1 2 3 4 5 | INPUT "vvedite predlojenie ", a$FOR i = LEN(a$) TO 1 STEP -1 IF MID$(a$, i, 1) = " " THEN b$ = MID$(a$, i + 1, 1)NEXTPRINT "eto bukva="; b$ |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 | INPUT "vvedite predlojenie ", a$FOR i = LEN(a$) TO 1 STEP -1 IF MID$(a$, i, 1) = " " THEN b$ = MID$(a$, i + 1, 1)NEXTPRINT "eto bukva="; b$ |
Тестирование выполнено в программе QB64 ( Скачать )