должно быть минимум 7 элементов
Объяснение:
Каждый излучающий элемент имеет два состояния- красный или синий цвет (выключенное состояние не рассматривается по условиям).
Значит, число возможных вариантов, которые можно показать на таком табло равно двум в степени, равной числу элементов.
Например:
один элемент: 
различных сигнала (состояния панели)
три элемента: 
различных сигналов можно отобразить
шесть элементов: 
различных сигнала (мало, надо сто)
семь элементов: 
различных сигналов (нам хватит)
Выбираем семь элементов, т.к. ими можно отобразить сто вариантов (и даже немного больше).
Можно и посчитать число элементов напрямую, без подбора.
Считается через логарифм по основанию два из десяти, затем округляется с избытком (то есть, всегда вверх):
В расчёте также показано, что такой логарифм можно посчитать через отношение двух десятичных логарифмов (lg), либо двух натуральных логарифмов (ln).
1.
const N = 10;
var a: array [1..N] of integer;
i, x: integer;
begin
write('Введите x: ');
readln(x);
for i := 1 to N do
begin
a[i] := x + i - 1;
write(a[i], ' ');
end;
end.
2.
const N = 10;
var a: array [1..N] of integer;
i: integer;
begin
a[1] := 1;
a[2] := 1;
for i := 3 to N do
begin
a[i] := a[i-1] + a[i-2];
end;
for i := 1 to N do
begin
write(a[i], ' ');
end;
end.
3.
const N = 6;
var a: array [1..N] of integer;
i, x: integer;
begin
a[N] := 1;
for i := N-1 downto 1 do
begin
a[i] := 2 * a[i+1];
end;
for i := 1 to N do
begin
write(a[i], ' ');
end;
end.
V1,V2,X,T1:real;
Begin
Write('V1 = ');ReadLn(V1);
Write('V2 = ');ReadLn(V2);
Write('X = ');ReadLn(X);
Write('T1 = ');ReadLn(T1);
if V1*(T1+X) <= V2*T1 then Write('Догонит')
else Write('Не догонит')
End.