Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
itszhamilya1
29.09.2021 18:46 •
Информатика
Тема множества: дан текст из строчных латинских букв, за которым следует точка. напечатать: - все буквы, входящие в текст не менее двух раз; - все буквы, входящие в текст по одному разу. в паскале авс
Показать ответ
Ответ:
Nikitakos222
02.07.2020 19:35
Var
l: array ['a'..'z'] of integer;
s: string;
i:integer;
c:char;
begin
read(s);
for i := 1 to length(s) do
if s[i] in ['a'..'z'] then
l[s[i]] := l[s[i]] + 1
else if s[i] = '.' then
break;
for c := 'a' to 'z' do
if l[c] >= 2 then
writeln(c, ' = ', l[c]);
for c := 'a' to 'z' do
if l[c] = 1 then
writeln(c, ' = ', l[c]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Vetvika31
19.04.2021 03:14
ТЕКСТ ЗАДАНИЯ Чтобы открыть новое окно в программе Python, нужноПуск=Python= File =Recent FilesПуск=Python= File =Open Moduleзапустить IDLE и выбрать из меню File =Openзапустить...
soykaalayaovpiyg
04.01.2020 09:50
Заражение компьютерными вирусами может произойти в процессе 1.работы с файлами 2.выключения компьютера 3.форматирования диска 4.печати на принтере...
ZAKHARRROVA20001
17.07.2020 15:15
Запишите на языке паскаль через if программу, реализующую алгоритм работы кассира, покупателю сдачу (s) наименьшим количеством банкнот по 500 (k500), 100 (k100), 50(k50,...
vitya48
21.02.2021 06:23
Паскаль. вычислить значение функции заданной в виде графика. разветвляющийся алгоритм...
anya377
03.09.2021 12:34
укажите неверное утверждение: в ms access для того чтобы удалить целую запись таблицы необходимо выделить её воспользоваться клавишей delete; щелкнуть по кнопке вырезать...
artyushin073
05.01.2022 14:21
На рисунке – схема дорог, связывающих пункты А, Б, В, Г, Д, Е, Ж, И, К, Л, М, Н, П. Сколько существует различных путей из пункта А в пункт П, не проходящих через пункт...
queensss
03.11.2022 15:30
Напишите программу, которая находит максимальный элемент матрицы, и удаляет из матрицы строку и столбец, на которых данный элемента расположен[Python] Случайная матрица...
Romaglot
17.10.2021 03:45
Запишите программный код по которому получатся результаты, перечисленные в следующем примере: Пример ввода: Kilogramm Результат: len=9 Kilo gramm iorm r a log...
semiglazova
12.11.2021 02:10
1) Напишите программу поиска в интервале трехзначных чисел количества чисел, кратных 3 2) Напишите программу поиска всех четных чисел в промежутке от 10 до 300...
ДианаDi1111
04.01.2020 04:45
Найти правила для велосипедистов из пдд и выписать пункты....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
l: array ['a'..'z'] of integer;
s: string;
i:integer;
c:char;
begin
read(s);
for i := 1 to length(s) do
if s[i] in ['a'..'z'] then
l[s[i]] := l[s[i]] + 1
else if s[i] = '.' then
break;
for c := 'a' to 'z' do
if l[c] >= 2 then
writeln(c, ' = ', l[c]);
for c := 'a' to 'z' do
if l[c] = 1 then
writeln(c, ' = ', l[c]);
end.