Составить слово из произвольных вводимых букв

составить слово из произвольных вводимых букв, до тех пор пока не будет введен пробел. Вывести это словом подсчитать кол-во букв "а" в этом слове буду очень признателен
1 ответ

Вот код
CLS
10 b$ = INPUT$(1)
IF b=" " THEN 20
PRINT b$
s$ = s$ + b$
GOTO 10
20 PRINT s$
END
Хотя, еслиб поднопрягся, смог бы сам написать минут за пятнадцать!Ой, извените, не заметил что и количество буков а надо посчитать! Сейчас исправлю ситуацию!
CLS
10 b$ = INPUT$(1)
IF b=" " THEN 20
PRINT b$
s$ = s$ + b$
GOTO 10
20 PRINT s$
n = LEN(s$)
FOR i = 1 to n
IF MID(s$, i, 1) = "a" THEN a = a + 1
NEXT i
PRINT a
END
Хотя это увеличило бы время на раздумья минут до давдцати.