2. текст. разочарованный результатами его последнего конкурса, дима бросил программирование и сосредоточился исключительно на кропотливой работе, но с участием меньше интеллектуальных усилий. на этот раз, он получает текст и должен вычислить среднюю длину слов текста, слово определяется как непрерывная последовательность символов алфавита ('a' .. 'z' , 'a' .. 'z'). определим среднюю длину = (общая длина слов текста) / (число слов текста). : написать программу, которая решит эту проблему димы. входные данные в первой строке входного файла text.in содержится данный текст. вывод данных выходной файл text.out будет содержать в первой строке целое число, которое представляет среднюю длину слов по всему тексту. ограничения: - размер входного файла не превосходит 1 мб - входной файл будет содержать только прописные и строчные буквы, цифры, пробелы и символы (т.е. не содержат специальные символы)
198
218
Ответы на вопрос:
//pascal abc.net v3.0 сборка 1111 type ty=set of char; const t: ty=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z']; var f: text; s: string; i,slo,ks: integer; k: real; begin assign(f,'text.in'); reset(f); while not eof(f) do read(f,s); close(f); slo: =0; ks: =0; for i: =1 to length(s) do if s[i] in t then inc(slo) else begin; k: =k+slo; inc(ks); slo: =0; end; if s[length(s)] in t then begin; inc(ks); k: =k+slo; end; k: =k/ks; assign(f,'text.out'); rewrite(f); write(f,k); close(f); end. пример ввода(text.in): simple textпример вывода(text.out): 5
создание документа
ctrl+n
открытие документа
ctrl+o
закрытие документа
ctrl+w
разделение окна документа
alt+ctrl+s
сохранение документа
ctrl+s
завершение работы с word
alt+f4
поиск текста, форматирования и специальных элементов
ctrl+f
повтор поиска
alt+ctrl+y
замена текста, форматирования и специальных элементов
ctrl+h
переход к странице, закладке, сноске, таблице, примечанию, рисунку и т. п.
ctrl+g
возврат к странице, закладке, сноске, таблице, примечанию, рисунку и т. п.
alt+ctrl+z
прокрутка документа
alt+ctrl+home
прерывание действия
esc
отмена действия
ctrl+z
повтор действия
ctrl+y
в режим разметки
alt+ctrl+p
в режим структуры
alt+ctrl+o
в обычный режим
alt+ctrl+n
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
vit720121.03.2020 05:47
-
Kalibekova121.03.2022 13:55
-
даша317119.04.2021 15:59
-
DALERALIMOV0204.03.2020 03:07
-
Dima191101.04.2021 14:04
-
olya80131.10.2020 17:42
-
smit007agent03.02.2021 17:23
-
диль929.07.2021 13:21
-
ретс02.04.2023 21:05
-
kolombiachka780026.08.2021 13:22
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.