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