Подсчитать стоимость телеграммы, если известна стоимость одного слова

Категория: Basic
2011-10-26 14:31:47
code: #basic
INPUT "Введите текст ",text$
INPUT "Введите стоимость слова ",dengi
FOR i=1 TO LEN(text$)
IF MID$(text$,i,1)=" " THEN slov=slov+1
NEXT
stoit=(slov+1)*dengi
PRINT stoit

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: студенты, работа со строками, строки, qbasic, слово