1 2 3 4 5 6 7 8 9 10 | DIM St AS STRING, cfr, maxpCLSSt = "proverka 3 poiska 345 naibol'shej 45674 posledovatelnosti 45 cifr 1"FOR i = 1 TO LEN(St) p = ASC(MID$(St, i, 1)) IF p > 47 AND p < 58 THEN cfr = cfr + 1 ELSE cfr = 0 IF cfr > maxp THEN maxp = cfrNEXTPRINT "Stroka:";: WRITE StPRINT "Maksimalno cifr v stroke:"; maxp |
Тестирование выполнено в программе QB64 ( Скачать )