Имеются три лампочки каждая лампочка может гореть тремя цветами : красный зеленый и синий сколько всего комбинаций цветов можно составить из этих лампочек? а)6 в)25 c)27 d)30

Решение - число вариантов - это три в третьей степени. след-во ответ 27

Const   n = 5;   l = 8; var   k: array[1..n, 1..l] of integer;   i, j, p: integer; begin   randomize;   for i : = 1 to n do   begin       for j : = 1 to l do       begin           k[i, j] : = random(100) - 50;           write(k[i, j]: 5);       end;       writeln   end;   p: =0;   for i : = 1 to n do       for j : = 1 to l do           if (k[i, j]< 0) and (k[i,j] mod 3=0) then p: =p+1;   writeln('найдено отрицательных элементов, кратных трем: ',p) end. тестовое решение:     27    42      0    25  -49    41  -16  -14   -26  -29    27  -16    10  -16    17    18     -4    10    17  -26    45  -23    48  -44   -47    28    25    -1  -31    24    35  -47   -39    49  -48    29  -42      2    -6    32 найдено отрицательных элементов, кратных трем: 4

Type   v = array of integer; var   i, n, ic, nc, kc, imax, nmax, kmax: integer;   a: v; begin   write('введите количество чисел n ');   readln(n);   setlength(a, n + 1);   writeln('вводите числа');   for i : = 0 to n - 1 do read(a[i]);   writeln;   nmax : = -32768;   kmax : = 0;   imax : = 0;   nc : = a[0];   kc : = 1;   ic : = 1;   for i : = 1 to n - 1 do   begin       if a[i] = nc then kc : = kc + 1       else begin           if kc < 3 then begin               kc : = 1;               nc : = a[i];               ic : = i           end           else           if kmax < = kc then begin               kmax : = kc;               nmax : = nc;               imax : = ic;               kc: =1;               nc: =a[i];               ic: =i           end           else begin               kc : = 1;               nc : = a[i];               ic : = i           end       end   end;   if kmax < = kc then begin       kmax : = kc;       nmax : = nc;       imax : = ic   end;   writeln('самая длинная серия содержит ', kmax, ' чисел ', nmax);   for i: =n downto imax+kmax+1 do a[i]: =a[i-1];   a[imax+kmax]: =nmax;   writeln('модифицированная строка');   for i: =0 to n do write(a[i]: 2) end. тестовое решение введите количество чисел n 30 вводите числа 1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 3 3 3 3 1 2 3 3 3 самая длинная серия содержит 6 чисел 8 модифицированная строка   1 2 2 3 4 4 4 5 5 5 6 8 6 6 6 4 8 8 8 8 8 8 8 3 3 3 3 1 2 3 3