Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 22.10.2015
Сообщений: 12

Найти самую частую причину проигрыша команды

19.11.2016, 09:19. Показов 1318. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Олимпиадная задача

Царь Пантелеймон пребывал в раздумьях — и всё из-за новомодного увлечения водным поло. Во всех соседних царствах команды есть, соревнования между собой устраивают. В Пантелеймоновом царстве команда тоже есть, лично министр спорта Капитон курирует. Вот только успехов особых у команды нет. Но Капитон уверяет, что это чистое невезение. То в первом же круге жребий свёл с будущими чемпионами. То температура воды в бассейне была чуть выше, чем та, при которой команда тренировалась. То цвет шапочек у соперников был не так хорошо различим на фоне воды. То мяч был из непривычного материала...
Пантелеймон уже много отчётов Капитона читал, и теперь хочет выяснить, какая причина проигрыша самая частая. Ваша задача — найти самую частую причину.

Входные данные
В первой строке содержится целое число n (1 ≤ n ≤ 100) — количество отчётов Капитона.
В каждой из следующих n строк указана главная (по мнению Капитона) причина проигрыша. Причина является непустой последовательностью символов, среди которых могут быть символы латинского алфавита, цифры и пробелы. Гарантируется, что последовательность символов не начинается и не заканчивается пробелом. Также гарантируется, что причина описывается не более чем 100 символами.

Выходные данные
В первой строке выведите целое число — количество раз, которое встретилась в отчётах наиболее часто упоминаемая причина.
Во второй строке выведите саму эту причину. Если таких причин несколько, выведите ту, которая упоминалась последней из всех таких причин.
Обратите внимание, что две причины считаются одинаковыми, только если они совпадают посимвольно. Буквы разного регистра считаются разными.

Пример

Входные данные
7
ball surface
water temperature 25
Blue Color
water temperature 25
water cold
ball surface
Blue color

Выходные данные
2
ball surface
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.11.2016, 09:19
Ответы с готовыми решениями:

разбить строку в массиве по 3 символа, считать все комбинации, и вывести самую частую из них
В файле input.txt - дана строка с набором бесмысленных символов например: PERPERVIAVIDPERPER Мне нужно в файл output.txt записать самую...

В тексте найти самую длинную и самую короткую строки и поменять их местами
в тексте найти самую длинную и самую короткую строки и поменять их местами

В текстовом файле найти самую длинную и самую короткую строки
Тема: Создание и обработка текстовых файлов. Цель: Написание и отладка программ обработки текстовых файлов. В текстовом файле найти...

1
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
20.11.2016, 04:26
Лучший ответ Сообщение было отмечено nikolayvorotnev как решение

Решение

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
type r=record
       s:string[100];
       n:integer;
     end;
var
  a:array[1..100] of r;
  s:string;
  i,j,k,n,x:integer;
begin
  assign(input,'input.txt');
  reset(input);
  readln(n);x:=1;
  for n:=1 to n do begin
    readln(s);
    k:=0;
    for i:=1 to j do if a[i].s=s then k:=i;
    if k=0 then begin j:=j+1;k:=j;end;
    a[k].s:=s;inc(a[k].n);
    if a[k].n>=a[x].n then x:=k;
  end;
  close(input);
  assign(output,'output.txt');
  rewrite(output);
  writeln(a[x].n);
  writeln(a[x].s);
  close(output);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
20.11.2016, 04:26
Помогаю со студенческими работами здесь

Найти самую длинную и самую короткую строки в файле
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using...

Ввести n строк, найти самую короткую и самую длинную строки
Ввести n строк , найти самую короткую и самую длинную строки. Вывести найденные строки и их длину. Ввод осуществить как аргументы...

Задачка не может вычислить самую молодую команды
Программа считает средний возраст игроков, но вот с выводом самой молодой команды не получается. Помогите найти в чем ошибка?пожалуйста) ...

Найти самую часто встречаемую и самую редко встречаемую буквы во фрагменте произвольного текста
Найти самую часто встречаемую и самую редко встречаемую буквы во фрагменте произвольного текста. Подскажите.

В файле query1 найти среди Sales, самую большую зарплату, а среди Research самую маленькую зарплату
В файле query1 найти среди Отдела Sales, самую большую зарплату, а среди Отдела Research самую маленькую зарплату. Нужно через grep всё. Я...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru