Даша пупырышкина изучает язык во втором классе. ей задали : переписать слова, записанные строчными буквами, в тетрадь. выполняя , она комментирует его. даша произносит слово "опять" каждый раз, когда пишет букву, которая уже встречалась в слове раньше. составьте программу, которая по слову определяет: сколько раз даша произнесёт "опять". примеры: исходное слово apple ответ 1 раз исходное слово potato ответ 2 раза ваша программа должна запросить слово; подсчитать сколько раз, переписывая это слово, даша произнесёт "опять" и вывести это число на экран. напишите в qbasic как сделать ?
KatyaKorytnaya
3
04.07.2019 08:00
6
Другие вопросы по теме Информатика
Александра123451111
07.09.2020 01:53
saschaalexandrova
28.04.2021 13:03
karinaalisa
28.04.2021 13:02
elena30lazarev
18.01.2021 19:22
lehareva
22.12.2020 08:52
zaxarov20012
22.12.2020 08:52
pinashinaanna27
22.12.2020 08:52
Alina9392010
22.12.2020 08:52
alica123434
22.12.2020 08:52
Популярные вопросы
- Инфузорий-туфелек поместили в пробирку с предварительно прокипяченной и...
3 - Указать грамматическое значение предложение (время, наклонение) и вид сказуемого....
2 - Напішыце эсэ-разважанне пра драматызм беларускай гісторыі ў эпоху сярэднявечча...
1 - Звуко буквенный анализ слова на украинском языке кольоровими...
1 - Как записать десятичную дробь, равную данной десятичной дроби? запишите...
3 - Самолёт развивает скорость 180км/ч. какое расстояние может пролететь этот...
1 - Ксову трусишка родственное слова названия признакам...
2 - Pb(no3)2+ba(oh)2 так выглядет в молекулярном виде. нужно написать уравнения...
2 - Выражение: 3(1,2х + 3у) - 2(0,3х - 13у)...
3 - Авторы басен обычно высмеивают (что? )...
1
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
Опять
Опять