Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
onlysvp
20.08.2020 04:26 •
Информатика
Дана строка символов. подсчитать количество вхождений буквы "n"
Показать ответ
Ответ:
sherbashina
02.10.2020 04:26
Поставь наилучшее
var n:string; d:Char; i,h:integer;
begin
Readln(d);//Символ
readln(n); //Строка
h:=0;
for i:=1 to Length(n) do
if n[i]=d then
Inc(h);
Writeln;
Writeln(h);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
pasha268
08.08.2020 15:04
Составить алгоритмы для задач: (алгоритмы пишем в тетради). 1. Магазин продает В машин по цене А руб. за каждую. Найти общую выручку от продажи машин. 2. Вычислить...
Odessey20011
17.11.2022 21:29
Желательно с решением №1 мощность алфавита равна 8 символов. в сообщении 20 символов. какой его информационный объем? №2 информационный объем сообщения 4096 бит...
dimannn8980
17.11.2022 21:29
Даны два действительных числа a и b. получить их сумму, разность и произведение. решит на с#...
fox368
25.08.2020 13:18
Могут ли индексы элементов матрицы принимать отрицательные и нулевые значения?...
rafuw1
09.11.2022 04:21
Составьте крассворд , содержащий термины Python и PyGame....
shaxzad123
14.03.2021 06:16
Как получить палку отладки в маенкрафте версия 1.15.0.56 на телефоне (Debug stick)...
Totiva
02.12.2021 07:12
Бег рог флаг стог какое слово лишнее.и обозначить служебную морфему...
inpurple
02.12.2021 07:12
За доставку дивана покупатель заплатил 350р., что составило 5% от стоимости дтвана.сколько стоил диван?...
pep4
02.12.2021 07:12
Расскажите об предательства андрия. как вы относитесь к его поступку? прокомментируйте сцену казни остапа. какие качества характера он проявляет в этой сцене?...
daniktsarev
02.12.2021 07:12
Решите на листке,чтобы было удобно скатать)) заранее 1)определить массу меди если ее плотность pси=8.9кг/м3 ,а обьем равен 277м3. ? 2)определить период колебаний...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n:string; d:Char; i,h:integer;
begin
Readln(d);//Символ
readln(n); //Строка
h:=0;
for i:=1 to Length(n) do
if n[i]=d then
Inc(h);
Writeln;
Writeln(h);
readln;
end.