111(десятичная система счисления)=1101111( двоичная система счисления)
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, b:integer;
begin
writeln ('Введите стороны a и b');
writeln ('Введите сторону a');
readln (a);
writeln ('Введите сторону b');
readln (b);
writeln;
writeln ('Периметр = ', (a+b)*2);
writeln ('Площадь = ', a*b);
readln;
end.
Program Pr1;
uses crt;
var mas:array[1..16] of integer;
max:array[1..8] of integer;
i,b,c:integer;
Begin
clrscr;
randomize;
b:=0;
for i:=1 to 16 do mas[i]:=random(71);
for i:=1 to 16 do write(mas[i]);
for i:=1 to 16 div 2 do begin
max[i]:=mas[i]*mas[16-b];
b:=b+1;
end;
writeln();
for i:=1 to 8 do write(max[i]);
end.