26 = 35 = 3 * 7^1 + 5 * 7^0 = 35; Ответ: 7.
//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.
3^5=243 комбинации. До 300 не хватает. Увеличиваем на один цвет.
4^5=1024 комбинации
Ответ: Достаточно 4 различных цветов лампочек.
var a, b, c: integer;
begin
readln(a, b, c);
if (a=-b)or(a=-c)or(b=-a)or(b=-c)or(c=-a)or(c=-b) then writeln('TRUE') else writeln('FALSE');
end.