Решить по информатике нужно переаести крзу капусту и волка на другой берег известно что в лодку влезает только 2 человека(тоесть ты и ктото ещё) и известно что козу нельзя оставлять с волком, а капусту с козой^

1)  коза  туда 2)  пустой  обратно 3)  волк  туда 4)  коза  обратно 5)  капуста  туда 6)  пустой  обратно 7)  коза  туда

Var   m    : array[1..10] of integer;   i,t : integer; begin   for i: =1 to 10 do   begin       m[i]: =i;       write(m[i]: 3);   end;   writeln;   for i: =1 to 3 do   begin       t: =m[i];       m[i]: =m[10-3+i];       m[10-3+i]: =t;   end;   for i: =1 to 10 do write(m[i]: 3);   writeln; end. результат:   1  2  3  4  5  6  7  8  9 10   8  9 10  4  5  6  7  1  2  3

    const  n =30;   var   s: string;   i,k,m: integer;   a: array[1..n] of integer;   b: array[1..n] of integer;   begin  for i: =1 to n do   readln(a[i]);   k: =1     ; for i: =1 to n do  begin  str(a[i],s);   if pos('5',s) = 0 then  begin  b[k]: = a[i];   k: =k+1;   end;   end; for i: = 1 to n do a[i]: =b[i];   for i: = 1 to n do  write(a[i],' ');   end.