Таблицы - в прилагаемых файлах.
Программа находится в прикрепленном файле.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
type
st=record
ball:real;
nam:string
end;
begin
var n:=ReadlnInteger;
var res:=new st[n];
var buf:st;
for var i:=0 to n-1 do begin
Readln(buf.nam);
buf.ball:=0.0;
res[i]:=buf
end;
loop 6 do begin // по условию тут надо написать 30, 6 - это для примера
var p:=ReadlnString.ToWords;
var id:=res.FindIndex(t->t.nam=p[1]);
if id>-1 then res[id].ball+=p[0].ToReal;
end;
var imax:=res.Select(t->t.ball).ToArray.IndexMax;
res[imax].nam.Println
end.
<u>Пример</u>
3
Леонид
Мария
Константин
18.7 Мария
3.01 Леонид
9.12 Леонид
43.4 Мария
5.3 Константин
0.52 Леонид
Мария
Без библиотек.
int main ()
{
int S = 0; int k, n;
cin >> n;
for (k = n; k != 0; k--)
{
if (k > 2)
S = S + k;
}
cout << S << endl;
system ("pause");
return 0;
}
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача М</em>
begin
var a:=ReadInteger.ToString.AdjacentGroup;
var f:=False;
foreach var g in a do
if g.Count>1 then begin
Write('YES'); f:=true; break
end;
if not f then Write('NO')
end.
<u>Примеры</u>
5221
YES
1232
NO
<em>Задача О</em>
begin
var s:=ReadInteger.ToString;
if s.Length<>(s.Distinct).Count then Write('YES')
else Write('NO')
end.
<u>Примеры</u>
212
YES
12345
NO
