Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ZlataPaw
20.01.2022 04:04 •
Информатика
Решить . зарание огромное написать программу, подсчитывающую количество символов "в" вводимой с клавиатуры строки произвольной длины.
Показать ответ
Ответ:
vadimfarxudinov
20.07.2020 10:46
Program kol_v;
var
s: string;
n,i: integer;
begin
writeln ('Введите исходную строку ');
readln (s);
n:=0;
for i:=1 to length(s) do
case s[i] of
'в': inc(n);
end;
writeln ('В строке ',n, ' букв в');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
SmileSmile321
30.12.2020 12:31
1. написать программу, которая при выполнении выведет на экран 10 слов «». усовершенствовать программу и вывести n слов «». 2. вычислить разность двух чисел а и b без использования...
ррррррррор1
07.01.2021 14:55
Сопоставить элементы диаграммы. Например: 1a 2b 3c 4d 5e 6f 7g *...
тони2006
12.03.2021 22:20
Заполните таблицу, по задачке....
Солі
11.03.2022 05:06
Лист до Діда Мороза 9-11 речень (мальчик)...
кристина2161
08.12.2021 06:58
На экране дисплея необходимо отображать 262144 различных цвета.вычислить необходимый обьем одной страницы видеопамяти при разрешающей дисплея 1024х768....
АленаКонева
23.12.2022 05:33
Запиши скороговорку буквами.в первом и во втором предложениях подчеркни основу. посадил дед лук. отрастил лук чуб. увидал лук внук, оборвал луку чуб....
mabrenner41
23.12.2022 05:33
Бабушка приготовила на зиму 30 л компота из вишни, яблочного компота на 10 л меньше, чем вишнёвого, а грушевого в 2 раза меньше, чем яблочного.сколько литров компота из груш...
yuraseven77
23.12.2022 05:33
Расставьте коэффициенты в уравнении с метода электронного fe + cuso4 = fe2(so4)3 + cu...
13Милана2004
23.12.2022 05:33
Дана арифметическая прогрессия (an) , разность которой равна 1,1, а 1= -7.найдите сумму первых 14 ее членов...
anechkaaa2
23.12.2022 05:33
Запиши краткую форму ед.ч и м.р к словам редкий,жидкий,тяжкий,близкий ,низкий,дерзкий,узкий....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
s: string;
n,i: integer;
begin
writeln ('Введите исходную строку ');
readln (s);
n:=0;
for i:=1 to length(s) do
case s[i] of
'в': inc(n);
end;
writeln ('В строке ',n, ' букв в');
end.