Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 12.04.2017
Сообщений: 2

Вывести два соседних слова, сумма длин которых меньше суммы длин любых других пар соседних слов.

12.04.2017, 19:03. Показов 1636. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Необходимо вывести два соседних слова, сумма длин которых меньше суммы длин любых других пар соседних слов.
Пример:
Ввод:
aaa a aa aaa
Вывод:
a aa
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
12.04.2017, 19:03
Ответы с готовыми решениями:

Найти количество пар соседних элементов, в которых предыдущий элемент меньше последующего
помогите плиз!

Найти количество пар соседних элементов, в которых предыдущий элемент меньше последующего
Найти количество пар соседних элементов, в которых предыдущий элемент меньше последующего

Дан массив размера N. Найти два соседних элемента, сумма которых максимальна, и вывести эти числа
Дан массив размера N. Найти два соседних элемента, сумма которых максимальна, и вывести их.a = Подскажите пожалуйста как складывать...

2
0 / 0 / 0
Регистрация: 12.04.2017
Сообщений: 2
15.04.2017, 17:30  [ТС]
Вывести кратчайшую пару соседних слов в строке.
Пример:
Ввод:
aaaa aa a aaa
Вывод:
aa a
0
 Аватар для Skyer
78 / 62 / 47
Регистрация: 05.05.2013
Сообщений: 196
15.04.2017, 21:24
Лучший ответ Сообщение было отмечено bottas как решение

Решение

Недавно же было
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
var
  s, s1, s2, s1min, s2min : string;
  i : integer;
begin
  readln(s);
  // находим первое слово
  i:=1;
  s1 := '';
  while (s[i]<>' ')and(i<length(s))  do begin
    s1 := s1 + s[i];
    i := i + 1;
  end;  
  // пропускаем пробел перед вторым словом
  i := i + 1;
  // находим второе слово
  s2 := '';
  while (s[i]<>' ')and(i<length(s))  do begin
    s2 := s2 + s[i];
    i := i + 1;
  end;  
  s1min := s1;
  s2min := s2;  
  i := i + 1;
  while i<length(s) do begin
    s1 := s2;
    s2 := '';
    // берем первое слово
    while (s[i]<>' ')and(i<length(s))  do begin
      s2 := s2 + s[i];
      i := i + 1;
    end;       
    if (length(s2)+length(s1))<(length(s2min)+length(s1min)) then begin
      s1min := s1;
      s2min := s2;
    end;
    // пропускаем пробел между словами
    i := i + 1;
  end;
  writeln('s1 = ',s1min);
  writeln('s2 = ',s2min);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.04.2017, 21:24
Помогаю со студенческими работами здесь

Найти два соседних элемента, сумма которых максимальна, и вывести эти элементы в порядке возрастания их индексов.
Дан массив размера N(на вход даётся кол-во элементов массива N за которым следуют значения N элементов).Найти два соседних элемента,сумма...

Найти два соседних элемента массива, сумма которых максимальна и вывести эти элементы в порядке возрастания индексов
2.Данный массив размера n. Найти два соседних элемента сумма сумма которых максимальна и вывести эти элементы в порядке возрастания их...

Найти в массиве количество пар соседних элементов, произведение которых нечётно, а сумма – положительна
Доброго времени суток, форумчане. Уезжаю до 31 числа. Возвращаюсь поздно. Времени нет. Много задач. Помогите. Дан массив,...

Дано число R и массив размера N. Найти два соседних элемента массива, сумма которых наиболее близка к числу R,и вывести эти элементы
Дано число R и массив размера N. Найти два соседних элемента мас- сива, сумма которых наиболее близка к числу R, и вывести эти элементы в...

Найти и вывести все пары соседних элементов, в которых сумма цифр первого числа больше суммы цифр второго
Дан массив целых чисел. Найти и вывести все пары соседних элементов, в которых сумма цифр первого числа больше суммы цифр второго числа....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru