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

1.

1) 6

2)4

3)7

4)5

2.

2 сразу и более не могут быть верным, значит верен только 1. вообщем долго объеснять печатав. ответ 99 строчка верная. т.к. всеостальные 99 неверны. то 99 строчка верна

const

n=10;

var

a : array [1..n] of integer;

k, i, s : integer;

begin

s: =0;

randomize;

writeln('введите число n= ');

read(k);

writeln('массив: ');

for i: =1 to n do

  begin

    a[i]: =random(10)+1;

    write(a[i],' ');

  end;

writeln;

for i: =1 to n do

    if (a[i]=k) then

      begin

        s: =s+1;

        write('номер элемента равный n: ',i)

      end;

if (s=0) then  

  writeln('такого числа нет');        

end.  

 

pascal:

var a,n,count,max,i: integer;

begin

count : =0;

max: = -1;

readln(n);

for i: =1 to n do

      begin

      readln(a);

  if (a> max) then

        begin

        max: =a;

  count: =1;

  end

  else

          begin

          if (a = max) then

        count: =count+1;

  end

      end;

writeln(count);

end.