1)постройте электронную таблицу для перевода целого десятичного числа в систему счисления с основанием р (2≤р≤9это нужно выполнить в экселе! я не пойму, как это сделать? объясните , а лучше покажите!

Sub aaa()       const n = 50       dim a(1 to n) as double, zero as boolean       randomize timer       for i = 1 to n               a(i) = int(21 * rnd - 10)       next i       k = 0: zero = false       for i = 1 to n               if a(i) = 0 then                       zero = true                       exit for               end if       next i       if zero then               msgbox "количество членов последовательности равно " + cstr(i)       else               msgbox "в последовательности нет нулей"       end if end sub

Втом, что любой цвет можно представить в виде комбинации трех цветов: красного (red, r), зеленого (green, g), синего (blue, b). другие цвета и их оттенки получаются за счет наличия или отсутствия этих составляющих.  данная цветовая модель является аддитивной, то есть любой цвет можно получить сочетание основных цветов в различных пропорциях. при наложении одного компонента основного цвета на другой яркость суммарного излучения увеличивается. если совместить все три компоненты, то получим ахроматический серый цвет, при увеличении яркости которого происходит приближение к белому цвету.