5 бит.
Фальшивых монет может быть от 0 до 16 - всего 17 вариантов. 4 бит недостаточно, т.к. 2^4 = 16 < 17; а 5 бит хватит: 2^5 = 32 > 17
Декларативные
Мяч круглый
Вода бесцветная жидкость
Процедурные
Чтобы расплавить метал его нужно накалить
Что бы приготовить перог надо сделать тесто
<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),-50,50).Select(n->double(n/10)).ToArray;
a.ForEach(x->Write(x:0:1,' ')); Writeln;
Writeln('Сумма отрицательных: ',a.Where(x->x<0).Sum);
var p:=a.IndexMin;
var q:=a.IndexMax;
if p>q then Swap(p,q);
Writeln('Произведение на интервале: ',
a[p+1:q].Aggregate(1.0,(x,y)->x*y));
Writeln('Сортировка:');
a.Sort; a.ForEach(x->Write(x:0:1,' ')); Writeln;
end.
<u>Пример</u>
n= 13
1.7 -0.8 -1.3 -1.4 5.0 -3.1 -0.7 -2.7 2.6 -4.9 4.0 -2.0 -2.0
Сумма отрицательных: -18.9
Произведение на интервале: -15.2334
Сортировка:
-4.9 -3.1 -2.7 -2.0 -2.0 -1.4 -1.3 -0.8 -0.7 1.7 2.6 4.0 5.0
1.Для определённой работы
2.Драйверы нужны для обновления или улучшения пк
3Потому что я хз ведь я не разработчик, и никто не ответит
4-?
5- Они служат для работоспособности пк
Не самый рациональный метод решения, но как говорится чем смог тем помог)
var a,b,c,x,kc,kn,k1,k2:integer;
<span>begin </span>
<span>kc:=1; </span>
<span>kn:=1; </span>
<span>k1:=0; </span>
<span>k2:=0; </span>
<span>a:=0; </span>
<span>b:=0; </span>
<span>writeln('Введите число x'); </span>
<span>read(x); </span>
<span>while x>0 do begin </span>
<span>c:=x mod 10; </span>
<span>if c mod 2=0 then begin </span>
<span>inc(k1); </span>
<span>a:=a+c*kc; </span>
<span>kc:=kc*10; </span>
<span>end; </span>
<span>if c mod 2<>0 then begin </span>
<span>inc(k2); </span>
<span>b:=b+c*kn; </span>
<span>kn:=kn*10; </span>
<span>end; </span>
<span>x:=x div 10; </span>
<span>end; </span>
<span>if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); </span>
<span>writeln(a,' ', b); </span>
<span>end. </span>
