1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | CLSt$ = "Цель статистики сосредоточивается в предоставлении фактов в наиболее сжатой форме"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)'если нашли пробел, значит начинается слово, счётчик увеличиваем на 1,'а если не пробел, то к очередному слову добавляем символ из фразыNEXTmax = LEN(a$(1)) 'задаём максимум=длине 1 словаn = 1 'номер максимального элемента, пока не нашли другой,=1FOR i = 1 TO kIF LEN(a$(i)) > max THEN max = LEN(a$(i)): n = i 'если нашли слово длиннее, то оно будет макс'а номер станет =iNEXTPRINT a$(n) |