Задача на Паскале

@aleXD2000 · Регистрация: 16.10.2017

Студворк — интернет-сервис помощи студентам

Условие задачи:

Бард

Каждый вечер жители небольшой деревни собираются вокруг большого костра и поют песни. В деревне живет выдающийся бард. Каждый вечер, если бард присутствует на встрече, то он исполняет одну единственную новую песню, которую никто из жителей деревни раньше не слышал. Никаких других песен в этот вечер больше никто не поет.

Если бард отсутствует на встрече, то поют все остальные присутствующие и обмениваются всеми песнями, которые они знают.

Зная списки номеров жителей деревни, присутствующих на каждой из Е последовательных встреч, выведите список номеров жителей деревни, которые знают все песни, прозвучавшие за этот период.

Входные данные

Первая строка входного файла содержит натуральное число N, 1 ≤ N ≤ 100 — количество жителей в деревне. Житель номер 1 — это бард.

Вторая строка содержит натуральное число E, 1 ≤ E ≤ 50 — количество вечеров.

Следующие E строк содержат списки номеров жителей, присутствующих на каждом из E вечеров. Каждая строка начинается с натурального числа K, 2 ≤ K ≤ N — количества жителей, присутствующих на вечере, за которым следуют K натуральных чисел, разделенных пробелом, - это номера присутствующих жителей. Ни один из номеров жителей не повторяется дважды за один вечер. Бард присутствует хотя бы на одном из вечеров.

Выходные данные

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

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Входные данные     Выходные данные
 
Sample 1                  Sample 1
4                                1
3                                2
2 1 2                          4
3 2 3 4
3 4 2 1
 
Sample 2                  Sample 2
8                                1
5                                2
4 1 3 5 4                     6
2 5 6                           8
3 6 7 8
2 6 2
4 2 6 8 1
 
Sample 3               Sample 3
5                             1
3
2 1 3
2 2 1
4 2 1 4 5

Я пытался ее решить вчера, но без результатов, хотя потратил 5 часов, буду очень рад, если решите

Вот мой код:

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
42
43
44
45
46
47
48
49
50
51
 program vogati;
var
 n, e, i, j, count, max, a, b, k, glob: integer;
 vog: array[1..100] of integer;
 colvog: array[1..100] of integer;
 pisni: array[1..100] of integer;
 mass: array[1..100] of integer;
begin
 readln(n, e);
 for i := 1 to e do
  begin
   readln(colvog[i]);
   for j := 1 to colvog[i] do
    readln(vog[j]);
   end;
    for i := 1 to e do
   begin
    for j := 1 to colvog[i] do
       if(vog[j] <> 1)then
         begin
         max := pisni[1];
           if(max <= pisni[j])then
           begin
            max := pisni[j];
            pisni[j] := max;
            end;
         end
        else if(vog[j] = 1)then
       begin
        count := count + 1;
          for b := 1 to colvog[i] do
           pisni[b] := pisni[b] + 1;
      end;
    end;       
         for j := colvog[i] downto 1 do
       if(pisni[j] = count)then
        begin
       mass[j] := vog[j];
       glob := glob + 1;
        end;
         for i := 1 to glob - 1 do
      for j := 1 to glob - i do
       if(mass[j] > mass[j + 1])then
         begin
          k := mass[j];
          mass[j] := mass[j + 1];
           mass[j + 1] := k;
         end;
       for i := 1 to glob do
         writeln(mass[i]);
end.

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .