Olimpiados.lt forumas

 ilgis := duoto skaičiaus ilgis;
užpildyt masyvą f false;
for i := 1 to ilgis do
  f[i, i, skaitmuo(i)] := true;
for i := 1 to ilgis do
  for k := i to ilgis-1 do
    for s := 0 to 100 do
      if f[i, k, s] then
        f[i, k+1, s+skaitmuo[k+1]] := true; 
        f[i, k+1, s-skaitmuo[k+1]] := true;
        f[i, k+1, s*skaitmuo[k+1]] := true;
        f[i, k+1, s/skaitmuo[k+1]] := true;

for i := 1 to ilgis-1 do
  for s := 0 to 100 do
    if f[1, i, s] and f[i+1, ilgis, s] then
      spausdinti rezultatą;