Подсчитать количество шипящих букв в слове - QBasic

QBasic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.57/7:

@n1ck 0 / 0 / 0 Регистрация: 19.12.2011 Сообщений: 7

	Подсчитать количество шипящих букв в слове 19.12.2011, 22:44. Показов 1446. Ответов 1 Метки нет (Все метки) Задача: подсчитать количество шипящих букв в слове 0

Лучшие ответы (1)

Сообщение: #2308527

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

19.12.2011, 22:44

Ответы с готовыми решениями:

Подсчитать количество шипящих букв в слове
1)Задача: подсчитать количество шипящих букв в слове 2)Задача: В массиве из 10 элементов найти и отпечатать колличество и сумму...

Подсчитать количество шипящих букв в слове
подсчитать количество шипящих букв в слове (Любое слово)

Подсчитать количество букв K и D в слове
Помогите решить задачи: а) Дан массив В (N). Если пятый элемент таблицы меньше десятого элемента, то присвоить этим элементам удвоенное...

KoGG

5646 / 1628 / 418

Регистрация: 23.12.2010

Сообщений: 2,450

Записей в блоге: 1

20.12.2011, 17:22

Сообщение было отмечено n1ck как решение

Решение

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Slovo As String, i As Integer, k As Integer
Slovo = "Щучкин"
Slovo = UCase(Slovo)
k = 0
For i = 1 To Len(Slovo)
    Select Case Mid$(Slovo, i, 1)
        Case "Ж", "Ч", "Ш", "Щ"
            k = k + 1
        Case Else
    End Select
Next i
Print "Число шипящих:"; k
End

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

20.12.2011, 17:22

Помогаю со студенческими работами здесь

Подсчитать количество различных букв в заданном слове
ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ! 1.В ЭВМ вводятся по очереди данные о росте N учащихся класса.Определить средний рост учащихся класса. ...

Ввести слово и в слове подсчитать количество согласных букв
Need help =\ 1) Ввести слово и в слове подсчитать количество согласных букв 2) Дан массив из 12 элементов. Найти количество элементов...

В слове, котором обнаружено наибольшее количество шипящих букв, заменить их на символ '&
Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). В слове, котором обнаружено наибольшее количество шипящих...

В слове, котором обнаружено наибольшее количество шипящих букв, заменить их на символ "&".
Проверьте, что не правильно? Никак не могу понять где я допустил ошибку. Дан массив из n слов произвольной длинны( длина не должна...

Вводится предложение. Подсчитать количество слов и подсчитать количество букв в самом длинном слове
Неправильно считает количество букв в наибольшем слове. #include <iostream> #include <cstdio> #include <cstring> ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Наверх