Решите задачу табличным Как набрать ровно 7 литров воды имея в наличии два ведра : одно-трехлитровое, второе-пятилитровое.

в лодку помещается 2 человека? если так, то решение будет:

1. сперва перевправляются 2 , один возвращается назад на лодке.

2. переправляются 2 миссионера, а назад возвращается оставшийся на берегу .

3. переправляются 2 , один остается, второй плывет за оставшимся на другом берегу .

4. переплывают 2 оставшихся .

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

правильно треугольник)