Даша пупырышкина изучает язык во втором классе. ей задали : переписать слова, записанные строчными буквами, в тетрадь. выполняя , она комментирует его. даша произносит слово "опять" каждый раз, когда пишет букву, которая уже встречалась в слове раньше. составьте программу, которая по слову определяет: сколько раз даша произнесёт "опять". примеры: исходное слово apple ответ 1 раз исходное слово potato ответ 2 раза ваша программа должна запросить слово; подсчитать сколько раз, переписывая это слово, даша произнесёт "опять" и вывести это число на экран. напишите в qbasic как сделать ?
DIM s AS STRING, asc0 AS INTEGER
CLS
FOR i = 1 TO 26
a(i) = -1
NEXT i
asc0 = ASC("a") - 1
INPUT "Введите слово: ", s
FOR i = 1 TO LEN(s)
k = ASC(MID$(s, i, 1)) - asc0
a(k) = a(k) + 1
NEXT i
k = 0
FOR i = 1 TO 26
IF a(i) > 0 THEN k = k + a(i)
NEXT i
FOR i = 1 TO k
PRINT "Опять"
NEXT i
Тестовое решение:
Введите слово: potato
Опять
Опять