Придумайте и опишите свой вариант командной игры по теме: «Роль алгоритмов в повседневной жизни». В описании необходимо указать: название игры, необходимое оборудование, подробное описание правил игры
program Fire;uses crt;var a,b,c,d,e,i,kol: integer;
beginkol:=0;a:=15;b:=15;c:=15;d:=15;randomize;for i:=1 to 60 do begin e:=Abs(random(5)-1); if e=1 then a:=a-1; if e=2 then b:=b-1; if e=3 then c:=c-1; if e=4 then d:=d-1; if (a=0) or (b=0) or (c=0) or (d=0) then break; kol:=kol+1; end;writeln ('Kolichestvo sgorevshih spichek= ',kol);end.
program Fire;uses crt;var a,b,c,d,e,i,kol: integer;
beginkol:=0;a:=15;b:=15;c:=15;d:=15;randomize;for i:=1 to 60 do begin e:=Abs(random(5)-1); if e=1 then a:=a-1; if e=2 then b:=b-1; if e=3 then c:=c-1; if e=4 then d:=d-1; if (a=0) or (b=0) or (c=0) or (d=0) then break; kol:=kol+1; end;writeln ('Kolichestvo sgorevshih spichek= ',kol);end.
Объяснение: