Для передачи сигналов договорились использовать дымовые шашкис цветными дымами, поджигаемые последовательно. одна последователь-ность дымов – один сигнал; в каком порядке идут цвета – существенно.какое количество различных сигналов можно передать поджиганием ровносеми дымовых шашек, если в запасе имеются шашки двух различных цветов(шашек каждого цвета не менее семи, цвет шашек в последовательностиможет повторяться)?

Всего 2 шашки. возможных цветов - 7. формула: n=p^i 2 в 7 - 128.

Var   f: text;   s1,s2: string; begin   assign(f,'file.txt');   reset(f);   while not eof(f) do       begin       readln(s1);       if not eof(f) then           begin           readln(s2);           if s1< > s2 then               begin               writeln(s1);               writeln(s2);               writeln               end           end       end;   close(f) end.

var j,i,buf: integer;

    mass: array[1..4] of integer;

begin

  for i: =1 to 4 do

  begin

    mass[i]: =random(100);

    write(mass[i],' ');

  end;

  for i: =1 to 4-1 do

    for j: =1 to 4-i do

      if (mass[j] > mass[j+1]) then

          begin

            buf : = mass[j];

            mass[j] : = mass[j+1];

            mass[j+1] : = buf;

          end;

  writeln;

  for i: =1 to 4 do

  begin

    write(mass[i],' ');

  end;

  writeln;

  write('наиболший элемент=',mass[4]);

end.