INPUT a$
FOR i=1 TO LEN(a$)
IF MID$(a$,i,1)=" " THEN n=n+1
NEXT i
PRINT n+1
Похожие записи/страницы:
- Написать программу,которая будет считать сколько слов в предложении- QBasic(Бейсик)
- Написать программу на языке QBasic, которая рисует график функции, вида на заданном интервале [k; m] - Basic(Бейсик)
- На день вашего рождения тётя положила на ваш счёт 1000 р.. Каждый год к вкладу добавляется s процентов годовых.…
- Написать программу запрашивающую возраст пользователя.Если ему не меньше 16 лет,сообщите, что он имеет право…
- Написать программу, которая определяет принадлежит ли точка заштрихованной области заданной фигуры - Basic(Бейсик)
- Когда на часах было x1 часов y1 минут, правильное время было a1 часов b1 минут. Сколько времени будет на самом…