1 2 3 4 5 6 | INPUT "vvedite predlojenie ",a$FOR i=1 TO LEN(a$)IF MID$(a$,i,1)=" " THEN EXIT FORn=n+1NEXTPRINT"dlina 1 slova=";n |
1 2 3 4 5 6 | INPUT "vvedite predlojenie ",a$FOR i=1 TO LEN(a$)IF MID$(a$,i,1)=" " THEN EXIT FORn=n+1NEXTPRINT"dlina 1 slova=";n |