Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
Duna383292928282
29.05.2019 00:20 •
Информатика
Составить программу позволяющую выяснить сколько раз встречается каждая буква алфавита во введённой строке s.
Показать ответ
Ответ:
Кошка022
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 оценок)
Популярные вопросы: Информатика
yyuyuy
25.11.2020 19:25
Программист написал программу для выбора наименьшего из двух чисел так: if a b: M = a if b a: M = b В каких случаях эта программа будет работать неправильно? Запишите правильную...
TanNam123
17.04.2021 01:21
Из каких отрезков музыки можно создать прикольное сопровождение для игры в скретче?...
Ira21Irina21
17.04.2021 01:13
Дана переменная a. Пользователь вводит a с консоли. Необходимо выводить переменную a, и уменьшать ее, пока она больше 0...
hannahmcdanielp06qjt
17.04.2021 00:42
Чому при скачуванні гри вона автоматично англійська? ітьУстройство(Xiaomi Mi 8 Lite)...
iworld2rist
17.04.2021 00:20
Скретч. Есть спрайт, когда второй спрайт прикасается к нему, то переменная увеличивает своё значение на 1. И какой спрайт нужно выбрать для написания блок-схемы, первый или...
romafomin15рома
17.01.2020 18:17
Составить орнамент в кумире с повторяющимися элементами, используя вспом. алгоритмы и циклы....
karine228
17.01.2020 18:23
C# можете объяснить в чем ошибка? и желательно делаю прогу, которая меняет дату изменения файла на новую...
nastya190420
26.02.2021 16:01
Запишите в таблицу действия над объектами. Словарь: копировать, удалить, хранить, посадить, обработать, записать. Таблица 1) информация;2) сорняки;3) файл;4) огород под каким...
timaglushko200
26.02.2021 16:00
Найти сумму трёхзначного числа. Если полученная сумма меньше 10, то на экран вывести 0 ; если сумма цифр больше 10, но меньше 20, то вывести на экран 1 ; во всех остальных случаях...
ron22218a
26.02.2021 15:59
PYTHON Напишите функцию, которая вычисляет площадь треугольника, заданного координатами своих вершин....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
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.