Даша пупырышкина изучает язык во втором классе. ей задали : переписать слова, записанные строчными буквами, в тетрадь. выполняя , она комментирует его. даша произносит слово "опять" каждый раз, когда пишет букву, которая уже встречалась в слове раньше. составьте программу, которая по слову определяет: сколько раз даша произнесёт "опять". примеры: исходное слово apple ответ 1 раз исходное слово potato ответ 2 раза ваша программа должна запросить слово; подсчитать сколько раз, переписывая это слово, даша произнесёт "опять" и вывести это число на экран. напишите в qbasic как сделать ?

186

386

Посмотреть ответы 2

Ответы на вопрос:

skshhd

Информатика

4,7(19 оценок)

Dim a(1 to 26) as integer 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 опять опять