Этот код на паскале отвечает за нахождение самого длинного слова в одной! строчке. нужно сделать так, чтобы можно было записать сколько угодно строчек и он нашёл в них самое длинное слово (цикл добавить, по-моему). var s,st,smax: string; i: byte; begin readln(s); if s[length(s)]< > ' ' then s: =s+' '; st: =''; smax: =''; for i: =1 to length(s) do if s[i]< > ' ' then st: =st+s[i] else begin if length(smax) smax: =st; st: =''; end; writeln('самое длинное слово: ',smax); writeln('кол-во букв: ',length(smax)); end.

167

409

Посмотреть ответы 3

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

Tedzs

Информатика

4,7(58 оценок)

Var s,st,smax: string; i: byte; begin writeln('вводите строки. конец ввода: < enter> в начале строки.'); readln(s); st: =''; smax: =''; while s< > '' do begin if s[length(s)]< > ' ' then s: =s+' '; for i: =1 to length(s) do if s[i]< > ' ' then st: =st+s[i] else begin if length(st)> length(smax) then smax: =st; st: =''; end; readln(s); end; writeln('самое длинное слово: ',smax); writeln('кол-во букв: ',length(smax)); end. пример (начало стихотворения “the road not taken”, роберт ли фрост): вводите строки. конец ввода: < enter> в начале строки.two roads diverged in a yellow wood,and sorry i could not travel bothand be one traveler, long i stoodand looked down one as far as i couldto where it bent in the undergrowth.самое длинное слово: undergrowth.кол-во букв: 12

Ліка2006

Информатика

4,6(36 оценок)

Так пойдет? //pascal var s, s1, max: string; begin writeln('введите ! exit для выхода.'); repeat write('введите строку: '); readln(s); if s < > '! exit' then begin s : = s + ' '; // max: =''; while pos(' ', s) > 0 do begin s1 : = copy(s, 1, pos(' ', s) - 1); delete(s, 1, pos(' ', s)); if length(s1) > length(max) then max : = s1; end; end; until s = '! exit'; writeln('самое длинное слово среди всех строк = ', max); writeln('кол-во букв: ', length(max)); readln; end. пример: введите ! exit для выхода. введите строку: test введите строку: testtest введите строку: testtesttest введите строку: 123 введите строку: 1234 введите строку: 12345 введите строку: ! exit самое длинное слово среди всех строк = testtesttest кол-во букв: 12

БадАнгелина

Информатика

4,6(10 оценок)

Нужный, жестком диске, знаки, графические, векторные и т.д. вроде так

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

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

Задай свой вопрос

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

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

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

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

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

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

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