С(( в ящике имеется 3 черных и 5 белых шаров. какое наименьшее число шаров нужно взять из ящика (не заглядывая в него) , чтобы среди вытянутых шаров: 1) оказался хотя бы один черный -сколько раз? 2) оказался хотябы одинбелый -сколько раз? 3) оказались хотя бы 2 черных 4) оказались хотябы 2 белых? ((

Ответ:   1) 6  2) 4  3) 7  4) 5

ну дык по вероятности и с 1 шара есть шанс, что он черный будет. 1 это и есть наименьшее число

 

1)1

2)1

3)2

4)2

 

если условия в том, чтоб полюбому должен быть 1 черный, то надо перебрать все неправильные решения

1)6

2)4

3)7

4)5

Const n=20;   var   a: array[1..n] of integer;   i,j,t,x,i1,i2: integer; begin   randomize;   writeln('исходный массив: ');   for i: =1 to n do begin     a[i]: =random(21);     write(a[i],' ')   end;   writeln;   for i: =1 to n-1 do     for j: =1 to n-i do       if a[j]< a[j+1] then       begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end;   writeln('отсортированный массив: ');   for i: =1 to n do write(a[i],' ');   writeln;   write('x = '); readln(x);   i1: =1; i2: =n;   repeat   i: =(i1+i2) div 2;   if a[i]> x then i1: =(i1+i2) div 2+1;   if a[i]< x then i2: =(i1+i2) div 2-1;   until (a[i]=x)or(i1> i2);   if a[i]=x then    begin   writeln('искомый(ые) номер(а) элемента(ов): ');   while (i> 0)and(a[i]=x) do i: =i-1;   i: =i+1;   while (i< =n)and(a[i]=x) do begin write(i,' '); i: =i+1; end;   end   else writeln('элемент не найден');   writeln; end. пример: исходный массив: 15 4 16 3 7 10 3 1 18 6 18 2 7 11 10 16 2 10 7 12  отсортированный массив: 18 18 16 16 15 12 11 10 10 10 7 7 7 6 4 3 3 2 2 1  x = 10 искомый(ые) номер(а) элемента(ов): 8 9 10 

X1, y1 - начло отрезка x2, y2 - конец отрезка x0, y0 - координаты точки принадлежность которой мы будем проверять вывод будет true, если принадлежит, false, если не принадлежит. программа: program fff; const    _eps: real = 1e-3; var  x0, y0, x1, y1, x2, y2 : real;   tmp : boolean;     begin   readln(x1, y1);   readln(x2, y2);       readln(x0, y0);       tmp : = ((x0 - x1) * (y2 - y1) - (y0 - y1) * (x2 - x1)) < = _eps;   tmp : = tmp and ( ((x1 < x0) and (x0 < x2)) or ((x2 < x0) and (x0 < x1)) );       write(tmp);     end.