1 2 3 4 5 | INPUT a$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) <> " " THEN k = 0 ELSE k = k + 1: IF k > max THEN max = k:NEXTPRINT max |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 | INPUT a$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) <> " " THEN k = 0 ELSE k = k + 1: IF k > max THEN max = k:NEXTPRINT max |
Тестирование выполнено в программе QB64 ( Скачать )