var

min, ans: array[92..98] of integer;

c: char;

i, k, N, b: integer;

begin

for i:=92 to 98 do

begin

min[i]:=3001;{допустимо и другое число, > 3000}

ans[i]:=0;

end;

readln(N);

for i:=1 to N do

begin

repeat

read(c);

until c=' '; {считана компания}

repeat

read(c);

until c=' '; {считана улица}

readln(k,b);

if min[k] > b then

begin

min[k]:=b;

ans[k]:=1

end else

if min[k] = b then ans[k]:=ans[k]+1;

end;

{если бензина какой-то марки не было,

ans[i] осталось равным 0}

writeln(ans[92],' ', ans[95],' ', ans[98])

end.

var

min, ans: array[92..98] of integer;

c: char;

i, k, N, b: integer;

begin

for i:=92 to 98 do

begin

min[i]:=3001;{допустимо и другое число, >3000}

ans[i]:=0;

end;

readln(N);

for i:=1 to N do

begin

repeat

read(c);

until c=' '; {считана компания}

repeat

read(c);

until c=' '; {считана улица}

readln(k,b);

if min[k] > b then

begin

min[k]:=b;

ans[k]:=1

end else

if min[k] = b then ans[k]:=ans[k]+1;

end;

{если бензина какой─то марки не было,

ans[i] осталось равным 0}

writeln(ans[92],' ', ans[95],' ', ans[98])

end.

Программа читает все входные данные один раз, не запоминая их в массиве, размер которого соответствует числу входных данных N или максимальной цене (3000). Во время чтения данных определяются две минимальных цены и количество АЗС, продающих по 92-й бензин по этим ценам. При печати результата проверяется, что у кого-то цена больше минимальной (вторая по минимальности цена существует), в этом случае искомая (искомые) АЗС — со второй по величине ценой, если это не так, то искомая (искомые) АЗС — все, продающие 92-й бензин. Баллы начисляются только за программу, которая решает задачу хотя бы для одного частного случая (например, когда все АЗС продают бен¬зин по различной цене, и 92-й бензин продают не менее двух АЗС).

Пример правильной и эффективной программы на языке Паскаль:

var c: char;

i, k, N, b, mini, min2, cntl, cnt2: integer;

s,si,s2: string;

begin

mini:=3001;

cntl:=0;

readln(N);

for i:=l to N do

begin

read(c) ;

si := ' ' ;

repeat

s:=s+c;

read(c);

until c=' '; {считана компания}

repeat

s:=s+c;

read(c) ;

until c=' '; {улица добавлена к компании}

readln(k,b);

if k = 92 then

if mini > b then

begin

min2:=minl;

cnt2:=cntl;

s2:=sl;

minl:=b;

cntl:=l;

sl:=s

end else

if mini = b then cntl:=cntl+l else

if min2 > b then

begin

min2:=b; cnt2:=l; s2:=s

end else

if min2 = b then cnt2:=cnt2+l

end;

if cnt2>0 then

if cnt2=l then

writeln(s2) else writeln(cnt2)

else {все АЗС продают 92-й бензин по одной цене}

if cntl=l then writeln(sl) else writeln(cntl) ;

writeln;

end.

Пример правильной программы на языке Бейсик:

DIM s AS STRING

DIM si AS STRING, s2 AS STRING

mini = 3001

cntl = 0

INPUT n

FOR j = 1 TO n

LINE INPUT s

i = 0

DO

i = i + 1

c$ - MID$(s, i, 1)

LOOP WHILE c$ <> " "

DO

i = i + 1

c$ = MID$ (s, i, 1)

LOOP WHILE c$ 0> " "

DO

i = i + I

с $ - MID$ (s, i, 1)

LOOP WHILE c$ <> " "

m = VAL(MID$(S, i + 1, 2) )

b = VAL(MID$(s, i + 4))

k = i - 1

s = LEFTS(s, k)

IF m = 92 THEN

IF mini > b THEN

min2 = mini: cnt2 = cntl: s2 = si

mini = b: cntl = 1: s1 = s

ELSE

IF mini = b THEN

cntl = cntl + 1

ELSE

IF min2 > b THEN

min2 = b: cnt2 =1: s2 = s

ELSE

IF min2 = b THEN cnt2 = cnt2 + i

ENDIF

ENDIF

ENDIF

ENDIF

NEXT j

IF cnt2 > 0 THEN

IF cnt2 = 1 THEN PRINT s2 'ELSE PRINT cnt2

ELSE

IF cntl = 1 THEN PRINT si ELSE PRINT cntl

ENDIF

END

Посчитаем сколько различных цифр в строке, занесём эти данные в массив. Затем проверим есть ли цифры встречающиеся нечётное число раз, запомним какое число встречается нечётное число раз. Проверим, есть ли цифры встречающиеся более одного раза или есть ли цифры встречающиеся один раз, при том, чтобы ноль не встречался. Если цифр встречающихся нечётное число раз более одной или условие, описанное в предыдущем предложении ложно выведем "NO"; иначе выведем "YES", а затем сначала половину каждой из цифр, начиная с девятки, затем выведем запомненную цифру, оставшуюся половину цифр.

var a:array['0'..'9'] of integer;

c, c_odd: char;

i, k: integer;

f: boolean;

begin

for c:='0' to '9' do a[c]:=0;

read(с);

while c<>'.' do

begin

if c in ['0' .. '9'] then a[c] := a[c] + 1;

read(c);

end;

k := 0; {количество цифр, встречающихся нечетное число раз}

for c := '0' to '9' do

if a[c] mod 2 = 1 then

begin

k := k + 1;

c_odd := c;

end;

f := (a['0'] = 1);

for c := '1' to '9' do

if (a[c] > 1) or (a[c] = 1) and (a['0'] = 0) then f := true;

if (k > 1)or not f then writeln('NO') else

begin

writeln('YES');

for c := '9' downto '0' do

for i := 1 to a[c] div 2 do

write(c);

if k = 1 then

write(c_odd);

for c := '0' to '9' do

for i := 1 to a[c] div 2 do

write(c);

end

end.

Программа читает все входные символы до точки один раз, подсчитывая в массиве, хранящем 10 целых чисел, количество каждой из цифр. Сами входные символы при этом не запоминаются. Затем проверяется — сколько в этом массиве нечетных элементов. Если больше одного, то задача решения не имеет. При наличии решения сначала печатается половина имеющихся цифр 9 (если таковые имеются, в случае нечетного числа цифр — меньшая половина), затем 8 и т.д. до 0, потом печатается цифра, которая встречается во входных данных нечетное число раз, а затем — оставшаяся половина цифр 0 (если таковые имеются, в случае нечетного числа цифр — меньшая половина), 1, и т.д. до 9. Если никаких цифр, кроме 0, во входных данных нет, то задача имеет решение, только если этот ноль единственный. Если нулей четное число, а ненулевая цифра единственная, то решения не существует.

Баллы начисляются только за программу, которая решает задачу хотя бы для одного частного случая (например, для строк, состоящих не более чем из 255 символов), или которая умеет только определять, имеет ли задача решение.

Пример правильной и эффективной программы на языке Паскаль:

var a:array['0'..'9'] of integer;

c, c_odd: char;

i, k: integer;

f: boolean;

begin

for c:='0' to '9' do a[c]:=0;

read(с);

while c<>'.' do

begin

if c in ['0' .. '9'] then a[c] := a[c] + 1;

read(c);

end;

k := 0; {количество цифр, встречающихся нечетное число раз}

for c := '0' to '9' do

if a[c] mod 2 = 1 then

begin

k := k + 1;

c_odd := c

end;

f := (a['0'] = 1);

for c := '1' to '9' do

if (a[c] > 1) or (a[c] = 1) and (a['0'] = 0) then f := true;

if (k > 1)or not f then writeln('NO') else

begin

writeln('YES');

for c := '9' downto '0' do

for i := 1 to a[c] div 2 do

write(c);

if k = 1 then

write(c_odd);

for c := '0' to '9' do

for i := 1 to a[c] div 2 do

write(c);

end

end.

Пример правильной и эффективной программы на языке Бейсик:

DIM k, i, j, iodd, a(9) AS INTEGER

FOR i = 0 TO 9

a(i) = 0

NEXT

INPUT c$

DO WHILE NOT (c$ = ".")

IF c$ >= "0" AND c$ <= "9" THEN

a(ASC(c$) - ASC("0")) = a(ASC(c$) - ASC("0")) + 1

ENDIF

INPUT c$

LOOP

k = 0

IF a(0) = 1 THEN f = 1 ELSE f = 0

FOR i = 0 TO 9

IF a(i) MOD 2 = 1 THEN

k = k + 1

iodd = i

END IF

IF i > 0 AND a(i) > 1 THEN f = 1

NEXT

IF k = 1 AND a(0) = 0 THEN f = 1

IF k > 1 OR f = 0 THEN

PRINT "NO"

END

ENDIF

PRINT "YES"

FOR i = 9 TO 0 STEP -1

FOR j = 1 TO a(i) \ 2

PRINT i;

NEXT

NEXT

IF k = 1 THEN PRINT iodd;

FOR i = 0 TO 9

FOR j = 1 TO a(i) \ 2

PRINT i;

NEXT

NEXT

END

var a: array[0..9] of boolean;

c: char;

i, k: integer;

begin

for i:=0 to 9 do a[i]:=false;

read(c);

while c<>'.' do

begin

if c in ['0'..'9'] then

begin

k:=ord(c)-ord('0');

a[k]:=true;

end;

read(c);

end;

k:=0;

for i:= 9 downto 0 do

if a[i] = true then

begin

k:=k+1;

write(i);

end;

if k=0 then write(-1);

end.

var

c : char;

a : array [0..9] of boolean;

i : integer;

f : boolean; {флаг, показывающий, что в строке нашлись цифры}

begin

for i := 0 to 9 do a [i] := false; {обнуляем массив}

f := false; {обнуляем флаг}

read (c);

while ( c <> '.' ) do {поиск окончания введённой строки}

begin

if (ord( c )-48) in [0..9] then

begin

a [(ord( c )-48)] := true; {отнимаем 48 для того, чтобы получить искомое число}

f := true

end;

read (c)

end;

for i := 9 downto 0 do

if a [i]=true then write (i); {выводим результат}

if not f then write ('-1') {проверка на то, нашлись ли цифры}

end.

Программа читает все входные данные один раз, сразу подсчитывая в массиве с индексами от 1 до 20 количество камней, принадлежащих определённой ценовой категории. Путём просмотра этого массива с конца (от 20-й ценовой категории) определяется число камней, заведомо попадающих в число 5% самых дорогих (добавление всех камней, следующей ценовой категории приводит к выходу за 5%). Последняя ценовая категория, в которую попало не менее одного драгоценного камня, запоминается. Если хотя чбы один из камней следующей ценовой категории также попадает в 5%, то проверяется имеют ли он и другие камни, набравшие столько же баллов, ценовую категорию не менее 15-й. В этом случае они все добавляются к числу драгоценных камней, которые необходимо поместить в сейф повышенной надёжности и ценовая категория которых является искомой.

Паскаль

var kcenkat : array[1..20] of integer;

с : char;

i,N,b,S,minckat : integer;

begin

for i:=0 to 20 do kcenkat[i]:=0;

readln(N);

for i:=l to N do

begin

repeat

read(c);

until c=' '; {считано название драгоценного камня}

repeat

read(c);

until c=' '; {считан код}

readln(b);

kcenkat[b]:-kcenkat[b]+1;

end;

S:=0; b:=20;

while S+kcenkat[b]<=N*0.05 do

begin

if kcenkat[b]>0 then

begin

S:=S+kcenkat[b];

minckat:=b;

end;

b:=b-l;

end;{определены те камни, которые наверняка попадают

в сейф и пропущены ценовые категории, в которые

не попал ни один камень}

if S+1<=N*0.05 then

{если ещё хотя бы один драгоценный камень попадёт

в 5%,то проверяется: ценовая категория этого и

таких же камней — не менее 15-й}

if b>=15 then minckat:=b

writeln(minckat);

end.

Бейсик

DIM kcenkatU ТО 20) AS INTEGER

DIM ss AS STRING

INPUT N

FOR TO N

LINE INPUT ss

i=l

DO

c$sMID$(ss,i,l)

i-i+i;

LOOP WHILE c$<>" "

'Считываем название драгоценного камня

DO

c$-MID$(ss,i,l)

i-i+1

LOOP WHILE c$<>" "

'Считываем код

b=VAL(MID$(ss,i))

kcenkat(b)-kcenkat(b)+1

NEXT j

b-20

WHILE s+kcenkat(b)<=N*0.05

IF kcenkat(b)>0 THEN

s=s+kcenkat(b)

minckat-b

END IF

b=b-l

WEND

IF s+l<=N*0.05 THEN

IF b>-15 THEN

minckat-b

END IF

END IF

PRINT minckat

END

const N=31;

type day = record

d : integer;

s : real;

end;

var days : array[1..N] of day;

tl,t2,s : real;

i,k : integer;

begin

for i:=l to N do

begin

readln(days[i].d,tl,t2);

days[i].s:=(tl+t2)/2;

end;

i:=l;

while i < N do

begin

if days[i].s<days[i+1].s then

begin

s:=days [i].s;

k:=i;

repeat

i:=i+l;

s:=s+days[i].s;

if i=N then break;

until days[i].s>=days[i+1].s;

writeln (k,'-',i,s/(i-k+1));

end;

i:=i+l;

end;

end.

Вариант 1.

Программа читает обучающий блок и запоминает написание чисел и их значения. Допускается построение полного "словаря" всех чисел от 1 до 99 или хранение только исходного обучающего блока. В приведённом примере на Паскале реализовано построение полного "словаря".

Затем программа читает входные строки, не запоминая их в массиве. Если построен полный "словарь", прочитанная строка ищется в этом словаре как единое целое. Числовое значение введённой строки равно сумме значений составляющих слов. Если вся строка при поиске в полном "словаре" отсутствует в обучающих данных, введённое число не попадает в интервал от 1 до 99 и не должно учитываться. Дополнительная проверка вхождения числа в заданный интервал не требуется, т. к. все числа, которые удаётся распознать с помощью приведённого обучающего блока, автоматически в него попадают, но за наличие такой дополнительной проверки в программе оценка снижается.

Вариант 2.

Программа читает обучающий блок и запоминает написание чисел и их значения. Допускается построение полного "словаря" всех чисел от 1 до 99 или хранение только исходного обучающего блока. В приведённом примере на Паскале — хранение исходного обучающего блока. Если полный "словарь" отсутствует, строка разбивается на слова (в подходящей строке их может быть не более двух). Числовое значение введённой строки равно сумме значений составляющих слов. Если какое-то слово отсутствует в обучающих данных, введённое число не попадает в интервал от 1 до 99 и не должно учитываться. Дополнительная проверка вхождения числа в заданный интервал не требуется, т. к. все числа, которые удаётся распознать с помощью приведённого обучающего блока, автоматически в него попадают, но за наличие такой дополнительной проверки в программе оценка снижается.

Программа считывает входные данные, сразу подсчитывая в массиве, хранящем 12 вещественных чисел, сумму температур в каждом из месяцев. Затем с использованием этого массива ищется максимальная среднемесячная температура. За дополнительный просмотр среднемесячных температур (их можно как запомнить в массиве, так и вычислить заново) распечатывается информация об искомых месяцах. Баллы начисляются только за программу, которая решает задачу хотя бы для частного случая (например, месяц с максимальной температурой единственен).

Пример правильной и эффективной программы на языке Паскаль:

const d:array[1..12] of integer =

(31,28,31,30,31,30,31,31,30,31,30,31);

var m:array[1..12] of real;

max, t:real;

i,j:integer;

cl,c2:char;

begin

for j:=1 to 12 do

m[j ] : =0;

for i:=l to 365 do

begin

readln(cl,cl,cl,cl,c2,t);

j:= (ord(cl)-ord('0') ) *10 +

ord(c2)-ord('01);

m [ j] :=m[j]+t

end;

max:=m[1]/d[1];

for j:=2 to 12 do

if m[j]/d[j] > max then

max:=m[j]/d[j];

for j:=1 to 12 do

if abs(m[j]/d[j]-max) < 0.0001

then writeln(j,1 ',m[j]/d[jj:0:1)

end.

Пример правильной программы на языке Бейсик:

DATA 31,28,31,30,31,30,31,31,30,31,30,31

DIM i, j, d (12) AS INTEGER

DIM m(12)

DIM dat AS STRING * 5

FOR i = 1 TO 12

m (i) = 0

READ d(i)

NEXT i

FOR i = 1 TO 3 65

INPUT dat, t

j = (ASC(MID$(dat, 4, 1)) - ASC("0")> * 10 +

ASC (MID5 (dat, 5, 1)) -ASCCO")

m(j) = m (j ) + t

NEXT i

max = m(l) / d(1)

FOR j = 2 TO 12

IF m(j ) / d(j) > max THEN max = m(j) / d(j)

NEXT j

FOR j = 1 TO 12 IF ABS(m(j) / d(j) - max) < .0001 THEN

PRINT j; " " ;

PRINT USING "##.#"; m(j) / d(j)

ENDIF

NEXT j

END

Программа читает входные данные, сразу подсчитывая в массиве, хранящем 12 вещественных чисел, сумму температур в каждом из месяцев, одновременно суммируя все температуры в году. Затем с использованием этого массива ищется минимальное отклонение среднемесячной температуры от среднегодовой. За дополнительный просмотр этого массива распечатывается информация об искомых месяцах.

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

Пример правильной программы на языке Паскаль:

var p:array[1..1000] of integer;

c,c1:char;

i,j,N,K:integer;

name:string;

time1,time2:integer;

begin

readln(N,K);

for i:=1 to K do

p[i]:=0;

for i:=1 to N do

begin

name:='';

repeat

read(c);

name:=name+c

until c=' '; {считана фамилия}

read(c,c1); {считаны часы первого времени}

time1:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

read(c,c,c1); {пропущено двоеточие, и считаны минуты}

time1:=time1+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

read(с,c,c1); {считаны часы второго времени}

time2:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

readln(c,c,c1); {пропущено двоеточие, и считаны минуты}

time2:=time2+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

for j:=1 to K do

if p[j]<=time1 then

begin

p[j]:=time2;

writeln(name,' ',j);

break;

end;

end;

end.

Пример правильной программы на языке Бейсик:

DIM p(1000) AS INTEGER

DIM s AS STRING

DIM nm AS STRING

INPUT n

INPUT k

FOR i = 1 TO k

p(i) = 0

NEXT i

FOR j = 1 TO n

LINE INPUT s

c$ = MID$(s, 1, 1)

i = 1

WHILE NOT (c$ = " ")

i = i + 1

c$ = MID$(s, i, 1)

WEND

nm = MID$(s, 1, i)

time1 = (ASC(MID$(s, i + 1, 1)) - ASC("0")) * 60 * 10

time1 = time1 + (ASC(MID$(s, i + 2, 1)) - ASC("0")) * 60

time1 = time1 + (ASC(MID$(s, i + 4, 1)) - ASC("0")) * 10

time1 = time1 + (ASC(MID$(s, i + 5, 1)) - ASC("0"))

time2 = (ASC(MID$(s, i + 7, 1)) - ASC("0")) * 60 * 10

time2 = time2 + (ASC(MID$(s, i + 8, 1)) - ASC("0")) * 60

time2 = time2 + (ASC(MID$(s, i + 10, 1)) - ASC("0")) * 10

time2 = time2 + (ASC(MID$(s, i + 11, 1)) - ASC("0"))

FOR i = 1 TO k

IF time1 >= p(i) THEN

p(i) = time2

PRINT nm, i

GOTO 10

ENDIF

NEXT i

10 NEXT j

END

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

Пример правильной программы на языке Паскаль:

var p:array[1..1000] of integer;

c,c1:char;

i,j,N,K:integer;

name:string;

time1,time2:integer;

begin

readln(N,K);

for i:=1 to K do

p[i]:=0;

for i:=1 to N do

begin

name:='';

repeat

read(c);

name:=name+c

until c=' '; {считана фамилия}

read(c,c1); {считаны часы первого времени}

time1:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

read(c,c,c1); {пропущено двоеточие, и считаны минуты}

time1:=time1+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

read(с,c,c1); {считаны часы второго времени}

time2:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

readln(c,c,c1); {пропущено двоеточие, и считаны минуты}

time2:=time2+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

for j:=1 to K do

if p[j]<=time1 then

begin

p[j]:=time2;

writeln(name,' ',j);

break;

end;

end;

end.

Пример правильной программы на языке Бейсик:

DIM p(1000) AS INTEGER

DIM s AS STRING

DIM nm AS STRING

INPUT n

INPUT k

FOR i = 1 TO k

p(i) = 0

NEXT i

FOR j = 1 TO n

LINE INPUT s

c$ = MID$(s, 1, 1)

i = 1

WHILE NOT (c$ = " ")

i = i + 1

c$ = MID$(s, i, 1)

WEND

nm = MID$(s, 1, i)

time1 = (ASC(MID$(s, i + 1, 1)) - ASC("0")) * 60 * 10

time1 = time1 + (ASC(MID$(s, i + 2, 1)) - ASC("0")) * 60

time1 = time1 + (ASC(MID$(s, i + 4, 1)) - ASC("0")) * 10

time1 = time1 + (ASC(MID$(s, i + 5, 1)) - ASC("0"))

time2 = (ASC(MID$(s, i + 7, 1)) - ASC("0")) * 60 * 10

time2 = time2 + (ASC(MID$(s, i + 8, 1)) - ASC("0")) * 60

time2 = time2 + (ASC(MID$(s, i + 10, 1)) - ASC("0")) * 10

time2 = time2 + (ASC(MID$(s, i + 11, 1)) - ASC("0"))

FOR i = 1 TO k

IF time1 >= p(i) THEN

p(i) = time2

PRINT nm, i

GOTO 10

ENDIF

NEXT i

10 NEXT j

END

Программа читает все входные данные один раз, не запоминая их в массиве, размер которого равен N, а составляя только список встретившихся актёров и количества голосов, отданных за каждого из них. Во время чтения данных об очередном актёре просматривается список ранее сохранённых актеров. Если он уже есть в списке, то количество голосов, отданных за него, увеличивается на 1, иначе актёр добавляется в массив упомянутых в голосовании актёров (при корректных данных размер массива не может быть больше 6). После окончания ввода производится сортировка массивов актёров и количества голосов, отданных за них, в порядке убывания количества голосов; затем выводится список актёров с указанием частоты встречаемости. Баллы начисляются только за программу, которая решает задачу хотя бы для одного частного случая. Ниже приведены примеры решения задания на языках Паскаль и Бейсик. Допускаются решения, записанные на других языках программирования. При оценивании решений на других языках программирования необходимо учитывать особенности этих языков программирования. Так, на языке C++ при считывании строковой переменной будут считаны не фамилия и имя, а только фамилия, поэтому следует использовать функцию getline(cin,s); аналогичная проблема возникает и в языке Си.

Программа читает все входные данные один раз, не запоминая их в массиве, размер которого равен N, а составляя только список встретившихся задач и количества запросов по каждой из них. Во время чтения данных об очередной задаче просматривается список ранее сохранённых задач; если она уже есть в списке, то количество запросов по ней увеличивается на 1, иначе задача добавляется в массив упомянутых в запросах задач (при корректных данных размер массива не может быть больше 12). После окончания ввода производится сортировка массивов задач и количества запросов, отданных за них, в порядке возрастания количества запросов; затем выводится список из трёх первых задач с указанием частоты встречаемости (или весь список, если его длина меньше трёх). Вместо сортировки можно применить и алгоритм поиска трёх минимальных элементов в массиве или три первых итерации сортировки. Затем выводятся три первые (или найденные наименее популярные) задачи. Баллы начисляются только за программу, которая решает задачу хотя бы для одного частного случая. Ниже приведены примеры решения задания на языках Паскаль и Бейсик. Допускаются решения, записанные на других языках программирования. При оценивании решений на других языках программирования необходимо учитывать особенности этих языков программирования. Так, на языке C++ при считывании строковой переменной будет считано не всё название задачи, а только его первое слово, поэтому следует использовать функцию getline(cin,s); аналогичная проблема возникает и в языке Си

Программа верно читает входные данные, сразу запоминая только время ухода в массиве, соответствующем столикам. Подходящий столик определяется путём последовательного просмотра элементов этого массива до первого свободного или такого, в котором записано время окончания, не превосходящее времени прихода текущего посетителя. В случае удачного выбора столика фамилия посетителя и номер столика распечатываются. Баллы начисляются только за программу, которая решает задачу хотя бы для частного случая (например, желающих меньше, чем столиков). Время при считывании удобно перевести в минуты и в этом же виде хранить.

Пример правильной и эффективной программы на языке Паскаль:

var p:array[1..1000] of integer;

c,c1:char;

i,j,N,K:integer;

name:string;

time1,time2:integer;

begin

readln(N,K);

for i:=1 to K do

p[i]:=0;

for i:=1 to N do

begin

name:='';

repeat

read(c);

name:=name+c

until c=' '; {cчитана фамилия}

read(c,c1); {cчитаны чаcы первого времени}

time1:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

read(c,c,c1); {пропущено двоеточие, и cчитаны минуты}

time1:=time1+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

read(c,c,c1); {cчитаны чаcы второго времени}

time2:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

readln(c,c,c1); {пропущено двоеточие, и cчитаны минуты}

time2:=time2+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

for j:=1 to K do

if p[j]<=time1 then

begin

p[j]:=time2;

writeln(name,' ',j);

break;

end

end;

end.

Пример правильной и эффективной программы на языке Бейсик:

DIM p(1000) AS INTEGER

DIM s AS STRING

DIM nm AS STRING

INPUT n

INPUT k

FOR i = 1 TO k

p(i) = 0

NEXT i

FOR j = 1 TO n

LINE INPUT s

c$ = MID$(s, 1, 1)

i = 1

WHILE NOT (c$ = " ")

i = i + 1

c$ = MID$(s, i, 1)

WEND

nm = MID$(s, 1, i)

time1 = (ASC(MID$(s, i + 1, 1)) - ASC("0")) * 60 * 10

time1 = time1 + (ASC(MID$(s, i + 2, 1)) - ASC("0")) * 60

time1 = time1 + (ASC(MID$(s, i + 4, 1)) - ASC("0")) * 10

time1 = time1 + (ASC(MID$(s, i + 5, 1)) - ASC("0"))

time2 = (ASC(MID$(s, i + 7, 1)) - ASC("0")) * 60 * 10

time2 = time2 + (ASC(MID$(s, i + 8, 1)) - ASC("0")) * 60

time2 = time2 + (ASC(MID$(s, i + 10, 1)) - ASC("0")) * 10

time2 = time2 + (ASC(MID$(s, i + 11, 1)) - ASC("0"))

FOR i = 1 TO k

IF time1 >= p(i) THEN

p(i) = time2

PRINT nm, i

GOTO 10

ENDIF

NEXT i

10 NEXT j

END

Программа верно читает входные данные, сразу запоминая только фамилии и значения времени окончания брони в массиве тех, у которых она должна закончиться в ближайшие 3 часа. Время при считывании удобно перевести в минуты и в этом виде хранить и сравнивать. Затем полученный массив значений времени сортируется по неубыванию любым алгоритмом сортировки, параллельно переставляются и элементы массива с фамилиями (возможно использование одного массива записей, состоящих из двух полей). Печатаются элементы массива фамилий в полученном в результате сортировки порядке.

Пример правильной и эффективной программы на языке Паскаль:

type pp=record

name:string[20];

time:integer;

end;

var

p:array[1..1000]of pp;

q:pp;

c,c1:char;

i,j,N,time1:integer;

begin

read(c,c1); {считаны часы текущего времени}

time1:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

readln(c,c,c1); {пропущено двоеточие, и считаны минуты}

time1:=time1+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

readln(N);

j:=1;

for i:=1 to N do

begin

p[j].name:='';

repeat

read(c);

p[j].name:=p[j].name+c

until c=' '; {считана фамилия}

read(c,c1); {считаны часы}

p[j].time:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

readln(c,c,c1); {пропущено двоеточие, и считаны минуты}

p[j].time:=p[j].time+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

if (p[j].time>=time1)and(p[j].time<=time1+180)then

j:=j+1; {данные занесены в массив}

end;

N:=j-1;

for i:=1 to N-1 do {сортируем данные}

for j:=1 to N-i do

if p[j].time>p[j+1].time then

begin

q:=p[j];

p[j]:=p[j+1];

p[j+1]:=q;

end;

for i:=1 to n do

writeln(p[i].name);

end.

Пример правильной и эффективной программы на языке Бейсик:

DIM t(1000) AS INTEGER

DIM m(1000) AS STRING * 20

DIM s AS STRING

DIM nm AS STRING

LINE INPUT s

time1 = (ASC(MID$(s, 1, 1)) - ASC("0")) * 60 * 10

time1 = time1 + (ASC(MID$(s, 2, 1)) - ASC("0")) * 60

time1 = time1 + (ASC(MID$(s, 4, 1)) - ASC("0")) * 10

time1 = time1 + (ASC(MID$(s, 5, 1)) - ASC("0"))

INPUT N

k = 0

FOR j = 1 TO N

LINE INPUT s

c$ = MID$(s, 1, 1)

i = 1

WHILE NOT (c$ = " ")

i = i + 1

c$ = MID$(s, i, 1)

WEND

nm = MID$(s, 1, i)

time2 = (ASC(MID$(s, i + 1, 1)) - ASC("0")) * 60 * 10

time2 = time2 + (ASC(MID$(s, i + 2, 1)) - ASC("0")) * 60

time2 = time2 + (ASC(MID$(s, i + 4, 1)) - ASC("0")) * 10

time2 = time2 + (ASC(MID$(s, i + 5, 1)) - ASC("0"))

IF time2 >= time1 AND time2 <= time1 + 180 THEN

k = k + 1

t(k) = time2

m(k) = nm

ENDIF

NEXT j

FOR i = 1 TO k - 1

FOR j = 1 TO k - i

IF t(j) > t(j + 1) THEN

time2 = t(j): nm = m(j)

t(j) = t(j + 1): m(j) = m(j + 1)

t(j + 1) = time2: m(j + 1) = nm

ENDIF

NEXT j

NEXT i

FOR i = 1 TO k

PRINT m(i)

NEXT i

END

Будем по очереди обрабатывать строчки. Для этого будем посимвольно «пропускать» названия компаний и улиц, так как они не нужны. После чего считывать вид и цену. Для каждого вида у нас будет ячейка в массиве min и ячейка в массиве cnt, которые показывают, какой на данный момент минимум и сколько их соответственно. Если новая цена меньше предыдущей, то запомним её и поставим cnt равным единице. Если новая цена равна минимальной, то просто увеличим cnt на единицу. Изначально все min проинициализируем 1000, большим значением, которого точно не будет.

Приведём код на языке Pascal:

var n, i, ind, cost : integer;

buf : char;

min, cnt : array[1..3] of integer;

begin

for i := 1 to 3 do

begin

min[i] := 1000;

cnt[i] := 0;

end;

readLn(n);

for i := 1 to n do

begin

while buf <> ' ' do

   read(buf);

read(buf);

while buf <> ' ' do

   read(buf);

read(buf);

if buf = 'Б' then

   ind := 1;

if buf = 'К' then

   ind := 2;

if buf = 'Ж' then

   ind := 3;

readLn(cost);

if cost = min[ind] then

   inc(cnt[ind]);

if cost < min[ind] then

   begin

   min[ind] := cost;

   cnt[ind] := 1;

   end;

end;

writeLn(cnt[1], ' ', cnt[2], ' ', cnt[3]);

end.