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)NEXTmax=LEN(b$(1))min=LEN(b$(1))FOR i=1 TO kIF LEN(b$(i))>max THEN max=LEN(b$(i))IF LEN(b$(i))<min THEN min=LEN(b$(i))NEXTPRINT"max dlina=";maxPRINT"min dlina=";min |