Заполните таблицу в соответствии с графом (в ячейки, где нет ребра поставьте «0»).

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);

цифровом виде.                                                                                        

заливаем 2 раза по 5л в 9л ведро осталось 1л.переливаем 1л в 9л ведро+5литров=6л,доливаем с 5л ведра 3л, осталось в 5 л ведре 2лпереливаем в9л ведро 2л+5л доливаем=7л  ещё добавляем с 5л ведра 2л  осталось в 5 литровом ведре 3 литра