1 2 3 4 5 6 7 | INPUT "Vvedite slova razdelnnie probelom ", text$INPUT "Vvedite stoimost slova", dengiFOR i = 1 TO LEN(text$) IF MID$(text$, i, 1) = " " THEN slov = slov + 1NEXTstoit = (slov + 1) * dengiPRINT stoit |
Тестирование выполнено в программе QB64 ( Скачать )