1 2 3 4 5 | INPUT"vvedite text ",a$ FOR i= 1 TO LEN(a$) IF MID$(a$,i, 1 )<>" " OR MID$(a$,i, 1 )=" " AND MID$(a$,i+ 1 , 1 )<>" " THEN b$=b$+MID$(a$,i, 1 ) NEXT PRINT b$ |
1 2 3 4 5 | INPUT"vvedite text ",a$ FOR i= 1 TO LEN(a$) IF MID$(a$,i, 1 )<>" " OR MID$(a$,i, 1 )=" " AND MID$(a$,i+ 1 , 1 )<>" " THEN b$=b$+MID$(a$,i, 1 ) NEXT PRINT b$ |