В информационно-математическом классе N учеников. Из них K учеников поняли, что математика и информатика не их предметы: им не нравится ни математика, ни информатика. L ученикам нравится и математика, и информатика. M ученикам нравится математика (что не исключает того,
что им могут нравится и другие предметы). Скольким ученикам нравится информатика?
Ограничения: N не превосходит 40; K,L,M подобраны так, чтобы не было противоречий и задача
имела решение.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество судей:');
Assert(n.InRange(3,5),'Неверное количество судей, разрешено 3,4 или 5');
var a:=ReadArrReal('Введите оценки:',n);
if n>3 then Writeln(' ',a.OrderBy(t->t).ToArray[1:n-1].Average:0:4)
else begin
var m:=a.Average;
var b:=a.Select(t->(t,Abs(t-m))).OrderByDescending(t->t[1]).ToArray;
if Abs(b[0][1]-b[1][1])<1e-5 then Writeln(' ',m:0:4)
else Writeln(' ',b.Skip(1).Select(t->t[0]).Average:0:4)
end
end.
2. А в школах часто все еще учат писать так:
var
a,d:array[1..5] of real;
n,i,imax,imin,j:integer;
s,avg:real;
begin
Write('Количество судей: '); Read(n);
if (n<3) or (n>5) then
Writeln('Неверное количество судей, разрешено 3,4 или 5')
else begin
Write('Введите оценки: ');
for i:=1 to n do Read(a[i]);
if n>3 then begin
imax:=1; imin:=1;
for i:=2 to n do
if a[i]<a[imin] then imin:=i
else
if a[i]>a[imax] then imax:=i;
s:=0;
a[imax]:=0;
a[imin]:=0;
for i:=1 to n do s:=s+a[i];
avg:=s/(n-2);
Writeln(' ',avg:0:4)
end
else begin
s:=0;
for i:=1 to n do s:=s+a[i];
avg:=s/n;
for i:=1 to n do d[i]:=Abs(a[i]-avg);
for i:=1 to n-1 do
for j:=i+1 to n do
if d[i]<d[j] then begin
s:=d[i]; d[i]:=d[j]; d[j]:=s
end;
if Abs(d[1]-d[2])<1e-5 then Writeln(' ',avg:0:4)
else begin
s:=0;
for i:=1 to n do
if a[i]<>a[1] then s:=s+a[i];
avg:=s/(n-1);
Writeln(' ',avg:0:4)
end
end
end
end.
В одной из кодировок Unicode каждый символ кодируется 16 битами. При подготовке реферата по биологии Вова написал следующий текст (в нём нет лишних пробелов).
«Як, тар, лама, окапи, пекари, бегемот, антилопа, бабирусса, бородавочник относятся к диким парнокопытным животным».
Затем Вова вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы — два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 16 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.
Решение.
Поскольку один символ кодируется двумя байтами, из текста удалили 8 символов. Заметим, что лишние запятая и пробел занимают четыре байта. Значит, название животного, которое удалили из списка, должно состоять из шести букв, поскольку (16 − 4) : 2 = 6 символов. Из всего списка только одно название животного состоит из 6 букв — пекари.
ответ: пекари.
Объяснение: