Добрый день!
Кто-либо может объяснить задачу Е и задачу J. Буду очень признателен...
В прикрепленном файле находятся все задачи с ВКОШП'а.
VAR
x,q,j,n,k,i:longint;
s:string;
a,b:array [1..10000] of char;
BEGIN
assign(input,'gems.in');
reset(input);
assign(output,'gems.out');
rewrite(output);
readln(n,k);
readln(s);
for i:=1 to k do
begin
read(a[i]);
readln(b[i]);
end;
for i:=1 to n do
begin
for j:=1 to k do
begin
if s[i]=a[j]
then
for x:=i to n do
begin
if (b[j]=s[x]) and (x<>j) and (x<>i) then
inc(q)
end;
end;
end;
writeln(q);
close(input);
close(output);
END.
if (gems[a[i]]>0)and(gems[b[i]]>0) then begin
Inc(p);
Dec(gems[a[i]]);
Dec(gems[b[i]])
end;
for i:=0 to 100000 do begin
for j:=0 to 100000 do begin
for k:=0 to 100000 do begin
if <a+b=c> then <вывести результат и выйти>
<сдвинуть a влево на 1>
end;
<сдвинуть b влево на 1>
end;
<сдвинуть c влево на 1>
end;
if (gems[a[i]]>0)and(gems[b[i]]>0) then begin
Inc(p);
Dec(gems[a[i]]);
Dec(gems[b[i]])
end;