Есть ответ 👍

Ввести х и вычислить значение у по формуле:

116
216
Посмотреть ответы 1

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


Program project1;   const   //множество разделителей слов.   d = [ ' ' , '.' , ',' , ': ' , '; ' , '! ' , '? ' , '-' , # 9 , # 10 , # 13 ]; var   s , strw , strwmax : string;   i , pos1 , len , lenw , lenwmax , cnt : integer; begin   repeat     writeln ( 'задайте текст: ' );     readln (s );       //обработка текста.     len : = length (s );     lenwmax : = 0;     strwmax : = '';     cnt : = 0;     pos1 : = 0;     for i : = 1 to len do begin       //пропускаем разделители.       if s [i ] in d then continue;       //отслеживаем начало слова.       if (i = 1 ) or (s [i - 1 ] in d ) then pos1 : = i;       //отслеживаем конец слова.       if (i = len ) or (s [i + 1 ] in d ) then begin         //вычисляем длину слова.         lenw : = i - pos1 + 1;         //выделяем слово.         strw : = copy (s , pos1 , lenw );         //если слово совпадает с текущим наибольшим по длине,         //тогда увеличиваем счётчик.         if strw = strwmax then begin           cnt : = cnt + 1;         end else if lenw > lenwmax then begin           //если это очередное слово длиннее всех ранее найденных слов, то           //запоминаем его и его длину и сбрасываем счётчик.           strwmax : = strw;           lenwmax : = lenw;           cnt : = 1;         end;       end;     end;       //показываем результат.     if strwmax < > '' then begin       writeln ( 'первое из самых длинных слов: "' , strwmax , '".' );       writeln ( 'это слово встречается в тексе ' , cnt , ' раз.' );     end else begin       writeln ( 'в строке нет слов.' );     end;       writeln ( 'повторить - enter, выход - любой символ + enter.' );     readln (s );   until s < > ''; end.   находит саммое длинное слово 

Реши свою проблему, спроси otvet5GPT

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS