ЕГЭ С4. А Вам слабо

@239sux · Регистрация: 19.11.2009

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

На вход программы подаются сведения о результатах соревнований по школьному многоборью. Многоборье состоит из соревнований по четырем видам спорта, участие в каждом из которых оценивается баллами от 0 до 10 (0 баллов получает ученик, не принимавший участия в соревнованиях по данному виду спорта). Победители определяются по наибольшей сумме набранных баллов. Известно, что общее количество участников соревнований не превосходит 100.
В первой строке вводится количество учеников, принимавших участие в соревнованиях, N. Далее следуют N строк, имеющих следующий формат:
<Фамилия> <Имя> <Баллы>
Здесь <Фамилия> – строка, состоящая не более чем из 20 символов; <Имя> – строка, состоящая не более чем из 15 символов; <Баллы> - строка, содержащая четыре целых числа, разделенных пробелом, соответствующих баллам, полученным на соревнованиях по каждому из четырех видов спорта. При этом <Фамилия> и <Имя>, <Имя> и <Баллы> разделены одним пробелом. Примеры входных строк:
Иванова Мария 5 8 6 3
Петров Сергей 9 9 5 7
Напишите программу, которая будет выводить на экран фамилии и имена трех лучших участников многоборья. Если среди остальных участников есть ученики, набравшие то же количество баллов, что и один из трех лучших, то их фамилии и имена также следует вывести. При этом имена и фамилии можно выводить в произвольном порядке.

@SeaFlyer · 08.10.2010, 10:16

слабо

@Puporev · 08.10.2010, 17:11

Если сам не можешь это решить, то и смысла нет, на экзамен с тобой точно не пойдем, ограничься частью А и спи спокойно...

@toxa92 · 08.10.2010, 17:19

239sux, не слабо. Сдавал ЕГЭ 2 года назад. Часть С решил всю. Для решения С4 нужно всего лишь знать record (это в качестве подсказки). Если не узнаешь что это такое - С4 не твое

@239sux · 08.10.2010, 18:27 **[ТС]**

Да на экзамен я и не собираюсь!
Мне просто нужно решение этой задачи, и всё!

@Домолаз · 09.10.2010, 19:23

не слабо. ок?

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
function obball(b:string):integer;
var
   i,s:integer;
begin
   for i:=1 to length(b) do
   begin
      if (b[i]='1') and (b[i+1]='0') then
         s:=s+10
      else
      if (b[i] in ['0'..'9']) and (b[i+1]<>'0') then
      case b[i] of
         '1': s:=s+1;
         '2': s:=s+2;
         '3': s:=s+3;
         '4': s:=s+4;
         '5': s:=s+5;
         '6': s:=s+6;
         '7': s:=s+7;
         '8': s:=s+8;
         '9': s:=s+9;
      end;
   end;
   obball:=s;
end;
type
   anketa=record
      fi:string[40];
      ball:string[10];
end;
var
   human:array[1..100] of anketa;
   i,n,first,sec,third:integer;
   s,f,t:set of byte;
begin
   writeln('Введите количество участников: ');
   readln(n);
   for i:=1 to n do
   begin
      writeln('Введите ФИ участника: ');
      readln(human[i].fi);
      writeln('И его баллы: ');
      readln(human[i].ball);
   end;
   first:=0;
   f:=[];
   for i:=1 to n do
      if obball(human[i].ball)>first then
         first:=obball(human[i].ball);
   for i:=1 to n do
      if obball(human[i].ball)=first then
         f:=f+[i];
   sec:=0;
   s:=[];
   for i:=1 to n do
       if (obball(human[i].ball)>sec) and (obball(human[i].ball)<first) then
          sec:=obball(human[i].ball);
   for i:=1 to n do
      if obball(human[i].ball)=sec then
         s:=s+[i];
   third:=0;
   t:=[];
   for i:=1 to n do
      if (obball(human[i].ball)>third) and (obball(human[i].ball)<sec) then
         third:=obball(human[i].ball);
   for i:=1 to n do
      if obball(human[i].ball)=third then
         t:=t+[i];
   writeln('Первое место');
   writeln;
   for i:=1 to n do
      if i in f then
      begin
         write(human[i].fi,' ',human[i].ball);
         writeln;
      end;
   if (first<>sec) then 
   begin
      writeln('Второе место');
      writeln;
      for i:=1 to n do
         if i in s then
         begin
            write(human[i].fi,' ',human[i].ball);
            writeln;
         end;
   end;
   if third<>sec then
   begin
      writeln('Третье место');
      writeln;
      for i:=1 to n do
         if i in t then
         begin
            write(human[i].fi,' ',human[i].ball);
            writeln;
         end;
   end;
   readln;
end.

@Mиxaил · 09.10.2010, 19:53

Сообщение от toxa92

239sux, не слабо. Сдавал ЕГЭ 2 года назад. Часть С решил всю. Для решения С4 нужно всего лишь знать record (это в качестве подсказки). Если не узнаешь что это такое - С4 не твое

эту задачу можно решить и без знания record'a с экономией памяти , надо просто хорошенько подумать! а если напрягаться не хочется, то можно и с ним....

@кот Бегемот · 09.10.2010, 19:57

Домолаз, почитай условие: вводится строка, а не отдельные данные

@Домолаз · 09.10.2010, 20:52

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
function obball(b:string):integer;
var
   i,s:integer;
begin
   for i:=1 to length(b) do
   begin
      if (b[i]='1') and (b[i+1]='0') then
         s:=s+10
      else
      if (b[i] in ['0'..'9']) and (b[i+1]<>'0') then
      case b[i] of
         '1': s:=s+1;
         '2': s:=s+2;
         '3': s:=s+3;
         '4': s:=s+4;
         '5': s:=s+5;
         '6': s:=s+6;
         '7': s:=s+7;
         '8': s:=s+8;
         '9': s:=s+9;
      end;
   end;
   obball:=s;
end;
type
   anketa=record
      f:string[20];
      i:string[20];
      ball:string[20];
end;
var
   g:boolean;
   human:array[1..100] of anketa;
   i,n,j,k,first,sec,third:integer;
   s,f,t:set of byte;
   h:array[1..300] of string;
begin
   writeln('Введите количество участников: ');
   readln(n);
   for i:=1 to n do
   begin
      writeln('Введите данные участника: ');
      readln(h[i]);
   end;
   for i:=1 to n do
   begin
      g:=true;
      for j:=1 to length(h[i]) do
      begin
         if (h[i][j]=' ') and (g=true) then
         begin
            human[i].i:=copy(h[i],1,j);
            delete(h[i],1,j);
            g:=false;
         end;
      end;
      g:=true;
     
      for k:=1 to length(h[i]) do
      begin
         if (h[i][k]=' ') and (g=true) then
         begin
            human[i].f:=copy(h[i],1,k);
            delete(h[i],1,k);
            g:=false;
         end;
      end;
   end;
   for i:=1 to n do
      human[i].ball:=h[i];
   first:=0;
   f:=[];
   for i:=1 to n do
      if obball(human[i].ball)>first then
         first:=obball(human[i].ball);
   for i:=1 to n do
      if obball(human[i].ball)=first then
         f:=f+[i];
   sec:=0;
   s:=[];
   for i:=1 to n do
       if (obball(human[i].ball)>sec) and (obball(human[i].ball)<first) then
          sec:=obball(human[i].ball);
   for i:=1 to n do
      if obball(human[i].ball)=sec then
         s:=s+[i];
   third:=0;
   t:=[];
   for i:=1 to n do
      if (obball(human[i].ball)>third) and (obball(human[i].ball)<sec) then
         third:=obball(human[i].ball);
   for i:=1 to n do
      if obball(human[i].ball)=third then
         t:=t+[i];
   writeln('Первое место');
   writeln;
   for i:=1 to n do
      if i in f then
      begin
         write(human[i].i,' ',human[i].f,' ',human[i].ball);
         writeln;
      end;
   if (first<>sec) then
   begin
      writeln('Второе место');
      writeln;
      for i:=1 to n do
         if i in s then
         begin
            write(human[i].i,' ',human[i].f,' ',human[i].ball);
            writeln;
         end;
   end;
   if third<>sec then
   begin
      writeln('Третье место');
      writeln;
      for i:=1 to n do
         if i in t then
         begin
            write(human[i].i,' ',human[i].f,' ',human[i].ball);
            writeln;
         end;
   end;
   readln;
end.

такой вариант, не доработал еще

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@239sux 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 37

	ЕГЭ С4. А Вам слабо 08.10.2010, 09:36. Показов 2028. Ответов 8 Метки нет (Все метки) На вход программы подаются сведения о результатах соревнований по школьному многоборью. Многоборье состоит из соревнований по четырем видам спорта, участие в каждом из которых оценивается баллами от 0 до 10 (0 баллов получает ученик, не принимавший участия в соревнованиях по данному виду спорта). Победители определяются по наибольшей сумме набранных баллов. Известно, что общее количество участников соревнований не превосходит 100. В первой строке вводится количество учеников, принимавших участие в соревнованиях, N. Далее следуют N строк, имеющих следующий формат: <Фамилия> <Имя> <Баллы> Здесь <Фамилия> – строка, состоящая не более чем из 20 символов; <Имя> – строка, состоящая не более чем из 15 символов; <Баллы> - строка, содержащая четыре целых числа, разделенных пробелом, соответствующих баллам, полученным на соревнованиях по каждому из четырех видов спорта. При этом <Фамилия> и <Имя>, <Имя> и <Баллы> разделены одним пробелом. Примеры входных строк: Иванова Мария 5 8 6 3 Петров Сергей 9 9 5 7 Напишите программу, которая будет выводить на экран фамилии и имена трех лучших участников многоборья. Если среди остальных участников есть ученики, набравшие то же количество баллов, что и один из трех лучших, то их фамилии и имена также следует вывести. При этом имена и фамилии можно выводить в произвольном порядке. 0

@SeaFlyer 0 / 0 / 0 Регистрация: 08.02.2010 Сообщений: 9
	08.10.2010, 10:16
	слабо 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	08.10.2010, 17:11
	Если сам не можешь это решить, то и смысла нет, на экзамен с тобой точно не пойдем, ограничься частью А и спи спокойно... 0

@toxa92 167 / 94 / 11 Регистрация: 16.04.2010 Сообщений: 464
	08.10.2010, 17:19
	239sux, не слабо. Сдавал ЕГЭ 2 года назад. Часть С решил всю. Для решения С4 нужно всего лишь знать record (это в качестве подсказки). Если не узнаешь что это такое - С4 не твое 0

@239sux 2 / 2 / 0 Регистрация: 19.11.2009 Сообщений: 37
	08.10.2010, 18:27 [ТС]
	Да на экзамен я и не собираюсь! Мне просто нужно решение этой задачи, и всё! 1

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	09.10.2010, 19:57
	Домолаз, почитай условие: вводится строка, а не отдельные данные 0