Даша Пупырышкина изучает английский язык во втором классе. Ей задали домашнее задание: переписать английские слова, записанные строчными буквами, в тетрадь. Выполняя задание, она комментирует его. Даша произносит слово "Опять" каждый раз, когда пишет букву, которая уже встречалась в слове раньше. Составьте программу, которая по слову определяет: сколько раз Даша произнесёт "Опять". Примеры: Исходное слово 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ОпятьОпять
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Даша Пупырышкина изучает английский язык во втором классе. Ей задали домашнее задание: переписать английские слова, записанные строчными буквами, в тетрадь. Выполняя задание, она комментирует его. Даша произносит слово "Опять" каждый раз, когда пишет букву, которая уже встречалась в слове раньше. Составьте программу, которая по слову определяет: сколько раз Даша произнесёт "Опять". Примеры: Исходное слово apple Ответ 1 раз Исходное слово potato Ответ 2 раза Ваша программа должна Запросить слово; Подсчитать сколько раз, переписывая это слово, Даша произнесёт "Опять" и вывести это число на экран. Напишите пожалуйста в QBasic как сделать ?» от пользователя Лерка Лешкова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!