1 2 3 4 5 6 7 8 | CLSINPUT "Vvedite predlogenye: ", P$ m = 32767DO: k = INSTR(P$, " ") IF k > 1 THEN S$ = LEFT$(P$, k - 1): P$ = MID$(P$, k + 1) ELSE S$ = P$ IF LEN(S$) < m THEN m = LEN(S$): T$ = S$LOOP UNTIL k = 0PRINT "Slovo: "; T$ |
Тестирование выполнено в программе QB64 ( Скачать )