Информатика 7 класс 50 . станок с чпу изготовил 98 деталей. сколько бит информации несет сообщение, что одна из них оказалась с браком? ​

1)52: 2=26(чел) любят пирож

2)26-20=6(чел) любят морож

ответ 6 чел

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.

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

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