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

р1, р2, р3, к1,к2,к3 - 0

1)  р1+к1 >    ( р2, р3,к2,к3 - р1,к1)

2)  к1 <   (р2, р3,к2,к3,к1 - р1)

3)  р2, р3 >   (к2,к3,к1 - р1,р2, р3)

4)  р1 < (к2,к3,к1,р1 - р2, р3)

5) к2,к3>  (к1,р1 - р2, р3,к2,к3)

6) р2<   (к1,р1,р2 -  р3,к2,к3)

7) к1,р1> (р2 -  р3,к2,к3,к1,р1)

8) р3<  (р2,р3 - к2,к3,к1,р1)

9) р2,р3 > (р1, р2, р3, к1,к2,к3 )

Паскаль.

 

Немного не понятно: от 1 до 10  это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку

 

program jjj;

var a: array [1..10] of integer; i,summa,proizv:integer;

begin

for i:=1 to 10 do begin

   Writeln('напишите элемент массива номер ',i); read(a[i]);

                        end;

For i:=1 to 10 do begin

                              if a[i] mod 2=0 then summa:=summa+a[i] else

                                                       proizv:=proizv*a[i];

                         end;

Writeln(summa,'   ',proizv); readln;

end.

Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.

1) цикл for

program p_for

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  p := 1;//начальное значение

  for i := 1 to n do  

     p := p * i;

  writeln(p);

end.  

2) цикл while

program p_while

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  while i <= n do  

  begin

     p := p * i;

     i := i + 1;

 end;

 writeln(p);

end.  

3) цикл until

program p_until

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  repeat

     p := p * i;

     i := i + 1;

  until i > n;

  writeln(p);

end.  

Объяснение: