<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(7);
Write('Произведение четных: ',
a.Where(x->x.IsEven).Aggregate(1.0,(x,y)->x*y),
', количество нечетных: ',a.Where(x->x.IsOdd).Count)
end.
<u>Пример</u>
-15 8 42 11 95 118 -27
Произведение четных: 39648, количество нечетных: 4
(12*2^13)/(256*128)=(3*2^15)/2^15=3 бита
Ответ: 9 цветов
785*3 - ответ будет в битах
785*3/8 - ответ в байтах
785*3/8/1024 - ответ в КБайтах
Ответ примерно равен 0.29КБайтам.
Если в 8-ми символьном алфавите для одного символа используется 3 бит информации.
Ответ: 2355бит или 294,375байт или 0.29КБайт
Program n_1;
var a: array [1..30] of integer; i, n: integer;
begin
randomize;
n:=0;
for i:=1 to 30 do begin a[i]:=random(10000); write(a[i], ' '); end;
writeln;
for i:=1 to 30 do if a[i]>a[30] then n:=n+1;
writeln(n);
end.
Ну диапазон если что сами можете подредактировать :D