Даша пупырышкина изучает язык во втором классе. ей - вопрос №4253999 от anasolosina256 07.07.2020 02:29

Question

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

anasolosina256 · Answer

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ОпятьОпять...