Есть ответ 👍

2. текст. разочарованный результатами его последнего конкурса, дима бросил программирование и сосредоточился исключительно на кропотливой работе, но с участием меньше интеллектуальных усилий. на этот раз, он получает текст и должен вычислить среднюю длину слов текста, слово определяется как непрерывная последовательность символов алфавита ('a' .. 'z' , 'a' .. 'z'). определим среднюю длину = (общая длина слов текста) / (число слов текста). : написать программу, которая решит эту проблему димы. входные данные в первой строке входного файла text.in содержится данный текст. вывод данных выходной файл text.out будет содержать в первой строке целое число, которое представляет среднюю длину слов по всему тексту. ограничения: - размер входного файла не превосходит 1 мб - входной файл будет содержать только прописные и строчные буквы, цифры, пробелы и символы (т.е. не содержат специальные символы)

198
218
Посмотреть ответы 2

Ответы на вопрос:

shok0
4,7(28 оценок)

//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
Themrg
4,6(43 оценок)

создание документа

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

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS