// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(45,15,85); a.Println;
Writeln('Индексы нечетных элементов');
a.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1.IsOdd).
Select(x->x.Item2).Println;
end.
<u><em>Тестовое решение:</em></u>
72 49 49 67 56 85 62 36 53 15 25 33 48 63 71 38 43 57 17 78 41 31 56 55 75 71 54 61 46 63 33 53 68 30 28 28 65 25 68 24 51 44 80 54 32
Индексы нечетных элементов
2 3 4 6 9 10 11 12 14 15 17 18 19 21 22 24 25 26 28 30 31 32 37 38 41
Var i,n,sum:integer;
begin
sum:=0;
write ('N = ');
readln (n);
for i:=1 to n do sum:=sum+i;
writeln ('Summa; ',sum);
end.
Ответ:
256 цветов
Объяснение:
где N - количество цветов,
i - количество бит
2 и 4
4 - только если это не опечатка при создании темы. Есть тип Boolean
Т.к. язык не указан, написал на паскале.
На сколько я понял, это должно выглядеть как-то так:
https://pastebin.com/puua5grq