Упричала стояла лодка, которая могла перевозить не больше двух человек. к реке подошли четверо, которым было необходимо переправииться на противоположный берег. все они переправились через реку без посторонней и продолжили свой путь, причем лодку поставили на тот же причал, откуда ее и взяли.

Это возможно если они подошли к реке парами с разных сторон, т.е. к разным берегам (2 человека подошли к левому берегу, а другие 2 человека к правому берегу).

Const n = 10; var a, k, e: integer; begin       readln(a);       if (a > n) then         writeln('error')       else       begin           while (k < a) do           begin                 k : = k + 3;                 e : = e + 1;           end;           writeln(e);       end; end.вот и лифт =)

Var k, m, e, a, b, c: real;     n: integer; begin       readln(e);       readln(k);       for n : = 1 to 1000 do       begin           b : = 1/((sqrt(sqr(n) + 1) + sqrt(sqr(n) - ;           if ((a - b > e) and (c < = k)) then           begin             m : = m + a + b;             c : = c + 1           end;           a : = b;       end;       writeln(a); end.как-то так вроде =)