1 2 3 4 5 6 7 8 9 10 11 12 13 | INPUT "vvedite stroku ", a$ a$ = " " + a$ FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1 ) = " " THEN k = k + 1 ELSE b$(k) = b$(k) + MID$(a$, i, 1 ) NEXT max = LEN(b$( 1 )) min = LEN(b$( 1 )) FOR i = 1 TO k IF LEN(b$(i)) > max THEN max = LEN(b$(i)) IF LEN(b$(i)) < min THEN min = LEN(b$(i)) NEXT PRINT "max dlina="; max PRINT "min dlina="; min |
Тестирование выполнено в программе QB64 ( Скачать )