Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vasilprokofiev
20.08.2020 02:59 •
Информатика
Составить программу в pascal! задана последовательность слов. определить частоту вхождения каждого из слов в последовательность.
Показать ответ
Ответ:
eldiraelf
03.10.2020 02:27
Var s,r,k: string;
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
olgaserzhantova
11.12.2022 22:01
Очень, очень Сколько секунд потребуется для скачивания фильма размером 2Гбайта при скорости интернетсоединения в 16 Мбит\сек...
pashasergo
11.12.2022 22:01
В зимний лагерь отправляется 100 старшеклассников. Почти все они увлекаются сноубордом, коньками или лыжами. При этом многие из них занимаются несколькими видами спорта. Всего кататься...
СашаЩербина
18.12.2021 17:15
Постройти таблицу истинности для выражения (¬x ∧ y ∧ z) ∨ (¬x ∧ y ∧ ¬z) ∨ (¬x ∧ ¬y ∧ ¬z)....
Пелагея14
08.07.2020 16:33
Линейные алгоритмы 1. Пользователь вводит три числа. Увеличьте первое число в два раза, второе числа уменьшите на 3, третье число возведите в квадрат и затем найдите сумму новых трех...
ychenik555555555
19.01.2023 13:58
решить задачу на си через case,через if я сам умею.Вычислить величину скидки.Скидка в 3% предоставляется,если сумма покупки больше 500 рублей, в 5% - если сумма больше 1000 рублей,...
grigorijperever
29.10.2021 00:54
Водномерном массиве, состоящем из 20 элементов целого типа (значения элементов массива задать случайными числами из интервала [-3, вычислить сумму элементов массива, расположенных...
лимпоьип
30.10.2020 21:24
Составить программу, по которой определяется, лежит ли точка с заданными координатами (x, y) внутри заштрихованной области....
Malishok12345
03.06.2022 04:47
5. Запишите оператор для вывода значений целых переменных a=5 и b=3 в поток cout в следующем формате: 5+3=? В ответе не используйте пробелы. 6. Запишите оператор для вывода значений...
svelt04
25.04.2022 12:38
дано: прямые a и b и их секущая AB, углы 1 и 2 накрест лежащие, угол 1= углу 2доказать: a||bдоказательство: Если углы 1 и 2 прямые, то a перпендикулярно AB, b перпендикклярно AB, поэтому...
Тамик03
11.01.2022 03:30
А:= водопровод ; delete (A,1,4); Результат типа string Λ:=...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
end.