Даша Пупырышкина изучает английский язык во втором классе. Ей задали домашнее задание: переписать
английские слова, записанные строчными буквами, в тетрадь. Выполняя задание, она комментирует его. Даша произносит слово "Опять" каждый раз, когда пишет букву, которая уже встречалась в слове раньше.
Составьте программу, которая по слову определяет: сколько раз Даша произнесёт "Опять".
Примеры:
Исходное слово apple Ответ 1 раз
Исходное слово potato Ответ 2 раза
Ваша программа должна
Запросить слово;
Подсчитать сколько раз, переписывая это слово, Даша произнесёт "Опять" и вывести это число на экран.
Напишите пожалуйста в QBasic как сделать ?

DIM a(1 TO 26) AS INTEGERDIM s AS STRING, asc0 AS INTEGERCLSFOR i = 1 TO 26   a(i) = -1NEXT iasc0 = ASC("a") - 1INPUT "Введите слово: ", sFOR i = 1 TO LEN(s)   k = ASC(MID$(s, i, 1)) - asc0   a(k) = a(k) + 1NEXT ik = 0FOR i = 1 TO 26   IF a(i) > 0 THEN k = k + a(i)NEXT iFOR i = 1 TO k   PRINT "Опять"NEXT iТестовое решение:Введите слово: potatoОпятьОпять