Var temp,code: integer;
begin
fl:=true;
Val(inp, out, code);
if code=0 then
begin
fl:=true;
writeln;
end
else begin
head(hd);
writeln('Uncorrect! Please, input Number.');
write('Input: ');
fl:=false;
end;
end;
procedure detali;
const a=1;
var det:array[1..10] of byte;
i, j,k, kgod, n, m, well, midint: integer;
mid, ver: real;
key:char;
sumn:longint;
begin
repeat
head('***Detali***');
writeln('Please, input number of experiments...');
write('Input: ');
readln(m);
writeln;
sumn:=0;
randomize;
for i:=2 to 10 do
det[i]:=1;
det[1]:=0;
for j:=1 to m do
begin
kgod:=0;
n:=0;
repeat
n:=n+1;
i:=random(10)+1;
if det[i]=1 then kgod:=kgod+1;
until kgod=50;
sumn:=sumn+n;
end;
mid:=sumn/m;
midint:=trunc(mid );
writeln('nuzno vzyat` ',mid:2:0,' detaley');
writeln;
kgod:=0;
well:=0;
for k:=1 to m do
begin
for i:=1 to midint do
begin
j:=random(10)+1;
if det[j]=1 then kgod:=kgod+1;
end;
if kgod=50 then well:=well+1;
kgod:=0;
end;
ver:=well/m;
write('veroyatnost` poyavleniya 50 godnix detaley v partii iz ');
writeln(mid:2:0,' detaley = ',ver:5:4);
writeln;
writeln('any key to continue, Esc to exit...');
key:=readkey;
until key=#27;
end;
begin
detali;
end.
Рис.6. Результат работы программы ***Detali*** (Работа 5 (г)).