Туристы(отец, мать и два близнеца) должны переправиться через реку. в их распоряжении есть маленькая лодка, вмещающая только одного взрослого или двоих детей. как организовать переправу, если и взрослые, и дети умеют грести?

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

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

Uses crt; var       d, a, b, c, x1, x2: real; begin       writeln('введите a, b, c');       readln(a, b, c);       d : = b * b - 4 * a * c;             if d > 0 then       begin               x1 : = (-b + sqrt(d)) / (2 * a);               x2 : = (-b - sqrt(d)) / (2 * a);               writeln('x1 = ', x1: 2: 2);               writeln('x2 = ', x2: 2: 2);       end       else if d = 0 then       begin               x1 : = -b / (2 * a);               writeln('x = ', x1: 2: 2);       end       else               writeln('нет действительных корней'); end.

Если n небольшие, то можно написать так: var   x, y, z, n: integer;   disproved: boolean; begin   write('введите n: ');   readln(n);   disproved : = false;   for x : = 1 to 100 do     for y : = 1 to 100 do       for z : = 1 to 100 do         if power(x, n) + power(y, n) = power(z, n) then         begin           writeln('ферма ошибся! ', x, ' ^ ', n, ' + ', y, ' ^ ', n, ' = ', z, ' ^ ', n);           disproved : = true;         end;   if not disproved then     writeln('теорема не опровергнута'); end. при больших n уже придётся использовать длинную арифметику.