Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ZevsGromov
25.09.2021 19:59 •
Информатика
Дана строка символов. подсчитать количество вхождений буквы "n"
Показать ответ
Ответ:
777496
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 оценок)
Популярные вопросы: Информатика
galina510
07.01.2020 17:25
Сколько раз выполнится оператор while в следующем фрагменте программы: s: =0; k: =1; while s =7 do begin k: =k+1; s: =s+k end...
sonatap01f6p
05.11.2020 10:28
По какой причине желательно не называть файлы длинными именами? ?...
yanabutko
05.11.2020 10:28
Вычислите корни квадратног уравнения ax2+b+c=0...
dmmkuplinov
05.11.2020 10:28
Переведите число 61 из десятичной в двоичную переведите число 1110011100 из двоичной в десятичную переведите число 81 из десятичной в восьмеричную переведите число 106...
qnorri
04.03.2021 19:40
Решите ! 1. для записи текста использовался 200-символьный алфавит. каждая страница содержит 96 строк по 48 символов. какой объем информации содержат 1280 страниц текста?...
Lizavitafjfjsj
04.03.2021 19:40
Что такое електронна почта сообщение...
aishaolzhas
05.05.2021 13:02
Каждый файл имеет собственное имя и...
lizahi
26.04.2020 21:18
Применение восьмеричной системы счисления...
Nastenka335
26.09.2022 10:47
Как называется мост,включающий в себя контроллер оперативной памяти и видеопамяти ? варианты: а.южный мост. в.системный мост. c.северный мост. д.командный мост...
natakubkina78
26.09.2022 10:47
Решить: документ объёмом 10 мбайт можно передать с одного компьютера на другой двумя а) сжать архиватором, передать архив по каналу связи, распаковать; б) сжать суперархиватором,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.