Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nik232451
30.11.2022 20:17 •
Информатика
Составить программу позволяющую выяснить сколько раз встречается каждая буква алфавита во введённой строке s.
Показать ответ
Ответ:
MonSlon
26.06.2020 20:19
Program gt;
var a:string;
p,i,l:longint;
b:array[1..200]of longint;
begin
readln(a);
l:=length(a);
for i:=1 to l do
begin
p:=ord(a[i]);
b[p]:=b[p]+1;
end;
for i:=97 to 122 do
begin
write(b[i],' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
софа336
06.04.2023 01:21
Преобразовать приведённую ниже информацию к табличному виду, определив имя таблицы и название каждого поля: +18, Москва, северный, Пермь, дождь, дождь, южный, +20, +15,...
ulyana1512200214
20.01.2022 03:40
Вспомните по одному объекту каждого из множеств и запишите их единичные имена. общее имя 1)мореплаватель 2)ученый 3)композитор 4)писатель 5)сказочник 6) герой 7)информационный...
Zein304
17.04.2021 11:12
Каков объем в мб 1,5 минутного моноаудиофайла при 24-битном кодировании и частоте дискретизации 20050 гц? ответ округлите с точностью до одного знака после запятой....
Рома555555
29.08.2021 17:15
Впиши пропущенные числа 36м5см= см 48дм3см= см 6м9мм= мм 22м4дм= дм 57дм 7мм= мм...
blurryfacegirl
29.08.2021 17:15
До слів казка, верба, береза доберіть спільнокореневі слова...
sorunbaevp00gzg
29.08.2021 17:15
Описание юрыя горава и пора-леановича на беларуском языке...
Alexa1888
29.08.2021 17:15
Вставьте модальные глаголы may или can 1. you come in when you have taken off your boots. 2. be careful: you spill the milk if you carry it like that. 3. most children...
maks197rus
01.11.2021 00:33
Проспрягать два глагола- быть и будить. определить спряжение....
птмпль
01.11.2021 00:33
Альдегиды не взаимодействуют с: 1 водородом, 2 гидроксидом меди (2), 3аммиачным растворомоксида серебра (1), 4метаном...
annablakfare303030
01.11.2021 00:33
Сколько оксида железа (3) потребуется для получения из него железа массой 33,6 грамм при восстановлении оксида водородом.? )...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:string;
p,i,l:longint;
b:array[1..200]of longint;
begin
readln(a);
l:=length(a);
for i:=1 to l do
begin
p:=ord(a[i]);
b[p]:=b[p]+1;
end;
for i:=97 to 122 do
begin
write(b[i],' ');
end;
end.