дано слово. подсчитать сколько раз в нем встречается заданная буква qbasic

Тоже самое я могу спокойно найти... Дайте мне решение, пожалуйста

If Then, For Next, Len, Mid и Print. Парочка переменных.Можно легко уложиться в пять строчек кода. Куда ещё проще...