Три миссионера и три людоеда должны перебратся через реку. у них есть одна лодка, в которой помещаются - id862158720200303 от tatiana85gandzii 03.03.2020 10:32

Question

Информатика: Три миссионера и три людоеда должны перебратся через реку. у них есть одна лодка, в которой помещаются только 2. во трагедии нельзя оставлять вместе больше людоедов чем миссионеров. как переправится через реку?

tatiana85gandzii · Accepted Answer

Const m=4; n=15; var   i,j,j0: integer;   a:array[1..m,1..n] of integer;   jExit,iExit:Boolean; begin   Randomize;   for i:=1 to m do begin     writeln;     for j:=1 to n do begin       a[i,j]:=random(2);       write(a[i,j]:2)       end     end;   writeln;   j:=0; jExit:=false;   repeat     j:=j+1; i:=1; iExit:=false;     if a[i,j]=0 then begin       repeat         i:=i+1;         if a[i,j] 0 then iExit:=true       until iExit or (i=m);       if i=m then jExit:=true       end     until jExit or...

MOGZ ответил