Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Zhuldyzovazarina
14.11.2022 02:58 •
Информатика
Тема множества: дан текст из строчных латинских букв, за которым следует точка. напечатать: - все буквы, входящие в текст не менее двух раз; - все буквы, входящие в текст по одному разу. в паскале авс
Показать ответ
Ответ:
irina895
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 оценок)
Популярные вопросы: Информатика
xayalaamirova
07.01.2023 06:29
с информатикой с решенией ...
NastjaKucera13
15.07.2020 06:18
Заполни пропуски в записи оператора цикла FOR, который позволит 5 раз вывести слово Школа в столбец. Параметру цикла i задай начальное значение 1. for i:=___to___do...
соняпросоня
27.08.2022 20:17
Решение по формуле Хартли, Алфавит состоит из 68 букв. На диске выделено 210 байт. Сколько символов можно записать на диск?...
danyazajtzev
12.09.2022 15:41
** Задача: Пользователь вводит два числа (a, b). Посчитать сумму чисел и записать результат в переменную (c). Проверить значение переменной (c) = 50. - true - вывести...
Настя0330
12.06.2022 14:14
Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить: • за какой месяц величина...
Zasov
14.07.2020 10:46
Решить спиши пословицы, ставя в нужной форме глаголы в скобках крепкую дружбу и топором не ( разрубить). человек от лени ( болеть), а от труда ( здороветь). дерево...
ллл107
16.08.2021 22:46
За 7 кг апельсинів і 4 кг лимонів заплатили 260 грн. скільки коштує 1 кг апельсинів і скільки 1 кг лимонів, якщо 5 кг апельсинів дорожчі за 2 кг лимонів на 40 грн.?...
kotovaalina31
06.04.2023 21:24
100 фонетичечкий разбор слов: ручьи,тает,носишь.морфемный разбор; повеяло,засвищут,оденется,вышине, разбор; листвою,прибрежного...
sargsyana524
06.04.2023 21:24
5постройте график уравнения: а) 9x – зу = 6; в) y=ax; б) у = -4х + 2; г) y=-x; д) у = -5; e) х = 4....
alhan1
22.08.2022 04:51
Расскажите про основание карфагена , .: )...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.