1 2 3 4 5 6 7 8 9 10 11 12 13 | CLSt$ = "Masha go to school"t$ = " " + t$DIM a$(100)FOR i = 1 TO LEN(t$) IF MID$(t$, i, 1) = " " THEN k = k + 1 ELSE a$(k) = a$(k) + MID$(t$, i, 1)NEXTmax = LEN(a$(1))n = 1FOR i = 1 TO k IF LEN(a$(i)) > max THEN max = LEN(a$(i)): n = iNEXTPRINT a$(n) |
Тестирование выполнено в программе QB64 ( Скачать )