Ответы на вопрос:
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.
Популярно: Информатика
-
gallavich200410.09.2020 20:42
-
kolopok15.06.2021 20:46
-
nastyushanaumenko09.08.2020 22:51
-
yuostroi08.06.2023 15:55
-
kadenets12.09.2020 18:15
-
malinka14011727.12.2021 15:56
-
T4ffy09.09.2021 07:16
-
SHIRINA1120.06.2023 12:18
-
karen78105.01.2021 13:30
-
катя477902.05.2021 01:31