1 2 3 4 5 6 7 | INPUT "Введите текст ",text$INPUT "Введите стоимость слова ",dengiFOR i=1 TO LEN(text$)IF MID$(text$,i,1)=" " THEN slov=slov+1NEXTstoit=(slov+1)*dengiPRINT stoit |
1 2 3 4 5 6 7 | INPUT "Введите текст ",text$INPUT "Введите стоимость слова ",dengiFOR i=1 TO LEN(text$)IF MID$(text$,i,1)=" " THEN slov=slov+1NEXTstoit=(slov+1)*dengiPRINT stoit |