Технология решения задачи: Из равенства спроса и предложения определяется рыночная цена: 50 – Р = 2Р – 1, Р = 17. Оптимальный объем производства фирмы-конкурента определяется, исходя из условия МС = Р, 3Q + 5 = 17, Q = 4.
Ответ: P = 17 у. е., Q = 4 ед.
var
n, i, j, k1, k2, kk : integer;
a : array [1..10] of integer;
s : string;
t : array [1..10] of string;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);readln;
readln(s);
k1:=length(s) div n;
k2:=length(s)-k1*n;
for i:=1 to n do
begin
if a[i]>k2 then kk:=k1 else kk:=k1+1;
t[a[i]]:=copy(s,1,kk);
delete(s,1,kk)
end;
for i:=1 to k1 do for j:=1 to n do s:=s+t[j][i];
for j:=1 to k2 do s:=s+t[j][k1+1];
writeln(s)
end.
Var
T : array [1..3] of string;
V : string;
s : integer;
Bad : array [1..3] of record
num : integer;
max : 1..2;
pos : 1..3
end;
n : integer;
i, j, k : integer;
Procedure Vost (i,bad:Integer);
begin
if bad=1 then V[i]:=T[2][i]
else V[i]:=T[1][i]
end;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
readln(T[1]);
readln(T[2]);
readln(T[3]);
s:=length(T[1]);
n:=0;
for i := 1 to s do
if (T[1][i]<>T[2][i]) or (T[2][i]<>T[3][i] ) Then
with Bad [n+1] do
begin
n:=n+1;
num:=i;
max:=1;
for j:=1 to 2 do
for k:=j+1 to 3 do
if T[j][i]=T[k][i] then
begin
max:=2;
pos:=6-j-k;
end;
end;
if (n=0) or (n=1) then write ('NO')
else if n=3 then
begin
V:=T[1];
for i:=1 to 3 do
Vost (Bad[i].num,Bad[i].pos);
write(V)
end
else
if (Bad[1].max=2) and (Bad[2].max=2) then
write ('NO')
else begin
V:=T[1];
if Bad[1].max=2 then
begin
Vost (Bad[1].num,Bad[1].pos);
V[Bad[2].num]:=T[Bad[1].pos,Bad[2].num];
end else begin
Vost (Bad[2].num,Bad[2].pos);
V[Bad[1].num]:=T[Bad[2].pos,Bad[1].num];
end;
write(V)
end;
end.
Ответ: P = 17 у. е., Q = 4 ед.