20, если он возьмёт 19 правых, то 20-ая уже гарантирована будет левой и пара будет составлена. Если он возьмёт меньше двадцати перчаток, то есть шанс, что все они будут правые.
Program help;
uses Crt;
var a,cot,cpo:integer;
begin
ot:=0;po:=0;cot:=0;cpo:=0
repeat
writeln('Число: ');
readln(a);
if a<0 then begin ot:=ot+a; inc(cot);end else
if a>0 then begin po:=po+a; inc(cpo); end else
if a=0 then begin
writeln('Кол-во положительных чисел: ',cpo);
writeln('Кол-во отрицательных чисел: ',cot);
end;
until a=0;
readln;
end
А) V = D * t * i * k
V - информационный объем файла
D - частота дискретизации
t - время звучания
i - глубина кодирования 1 сигнала
k - количество каналов
D1 = 8 кГц = 8000 Гц
t = 1 мин = 60 секунд
k = 1 канал (моно-)
i1 = 16 бит = 2 байта
V1 = 8000 Гц * 60 c * 2 байта * 1 = 960000 байт = 937,5 килобайт = 0,91 мегабайт - информационный объем 1 звукового файла
D2 = 24 кГц = 24000 Гц
t = 1 мин = 60 секунд
k = 1 канал (моно-)
i2 = 16 бит = 2 байта
V2 = 24000 Гц * 60 c * 2 байта * 1 = 2880000 байт = 2812,5 килобайт = 2,75 мегабайт
- информационный объем 2 звукового файла
Детская песня - Колыбельная медведицы - 2,09 мегабайт меньше 2 объема на 0,66 Мб и больше 1 объема на 1,18 Мб
Песня Валентины Толкуновой Тебя любила - 1,05 Мб больше 1 объема на 0,14 Мб, меньше второго объема на 1,7 Мб
<em>uses crt;</em>
<em>var a, b, c, i, n:integer; </em>
<em>s :array [1..10000] of integer;</em>
<em>begin</em>
<em> clrscr;</em>
<em> writeln ('Введите размер массива, который надо сгенерировать');</em>
<em> read (n);</em>
<em> for i:=1 to n do </em>
<em> s[i]:=random(50);</em>
<em> for i:=1 to n do </em>
<em> writeln (i, ' элемент равен ', s[i]);</em>
<em> writeln ('Введите число, которое нужно найти');</em>
<em> read (a);</em>
<em> for i:=1 to n do</em>
<em> if s[i]=a then inc(b);</em>
<em> if b=0 then writeln('В массиве нет числа ',a) else writeln('Число ', a,' в массиве встречается ', b,' раз');</em>
<span><em>end.</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>