Var arr:array [1..6] of integer;i,k,x,s,d,j:integer;beginrandomize;d:=0;for j:=1 to 1000 dobeginfor i:=1 to 6 do arr[i]:=1;k:=1;s:=1;while k<>0 do begin x:=random(6)+1; arr[x]:=0; if (arr[1]=0) and (arr[2]=0) and (arr[3]=0) and (arr[4]=0) and(arr[5]=0) and (arr[6]=0) then k:=0; s:=s+1; end;d:=d+s; end;Writeln('В среднем цикл отработал ',d/1000,' раз'); end.
В среднем цикл отработал 15.946 разПри многократном запуске<span> получается около </span><span>16 раз</span>
Это каталог, в котором сохраняются адреса ссылок.
Var a:array [1..6] of integer; b:array [1..6] of integer; c:array [1..6] of real; i:integer; begina[1]:=5; b[1]:=30;a[2]:=9; b[2]:=52;a[3]:=15; b[3]:=90;a[4]:=27; b[4]:=155;a[5]:=46; b[5]:=270;a[6]:=60; b[6]:=465;for i:=1 to 6 doc[i]:=a[i]/b[i];for i:=1 to 6 dowriteln('кВт/кг ',i,'-го генератора = ',c[i]);end.
Program prog;
uses crt;
var a,b,c,x,y:real;
begin
clrscr;
write('Ребро параллелепипеда а = ');
readln(a);
write('Ребро параллелепипеда b = ');
readln(b);
write('Ребро параллелепипеда c = ');
readln(c);
writeln;
write('Сторона отверстия х = ');
readln(x);
write('Сторона отверстия y = ');
readln(y);
writeln;
if ((a<x) and (b<y)) or
((a<x) and (c<y)) or
((c<x) and (b<y)) or
((b<x) and (a<y)) or
((c<x) and (a<y)) or
((b<x) and (c<y)) then
writeln('Может пройти') else writeln('Не может пройти');
end.
