Сколько всего раз встречается цифра 3 в записи чисел 19, 20, 21, 33 в системе счисления с основанием 6? я сделал вот, что 19=31(6) 33=53 (6) а дальше как . только подробно умоляю.

19(10)=31(6), 33(10)=53(6).
А теперь в этом диапазоне перебираем варианты с тройками, не выходя за пределы цифры 5:
31, 32, 33, 34, 35, 43, 53
 Всего троек будет восемь.

Вы правильно всё делаете! Только надо каждое число из диапазона переводить в шестиричную систему счисления
19_10 = 31_6 и так далее. И считаем троечки
19 - 31 -1
20 - 32 -2
21 - 33 -4
22 - 34 -5
23 - 35 -6
24 - 40
25 - 41
26 - 42
27 - 43 -7
28 - 44
29 - 45
30 - 50
31 - 51
32 - 52
33 - 53 -8
Всё :) ответ - восемь троек.

ответ: Систе́ма — множество элементов, находящихся в отношениях и связях друг с другом, которое образует определённую целостность, единство. Сведение множества к единому — в этом первооснова красоты. Пифагор. Потребность в использовании термина «система» возникает в тех случаях, когда нужно подчеркнуть, что что-то является большим, сложным, не полностью сразу понятным, при этом целым, единым.

Объяснение:

Теперь перечислим основные свойства системы.

1) Целостность. Любую организацию можно рассматривать как интегрированное целое, в котором каждый элемент занимает строго определенное место.

Целостность - принципиальная несводимость свойств системы к сумме свойств составляющих ее элементов и невыносимость из последних свойств целого; зависимость каждого от его места, функции и т.д. внутри целого.

Функционирование целого должно приносить интегральный, суммированный эффект. Все элементы должны быть взаимосвязаны в рамках цели данной системы.

2) Иерархичность. Каждый компонент системы в свою очередь может рассматриваться как система, а исследуемая в данном случае система представляет собой один из компонентов более широкой, глобальной системы (рис. 6). Это напоминает ящик, в который сложены более мелкие коробки, мы открываем один и видим, что в нем содержится еще несколько.

Я в диалектах не очень, но вот вспомнил VB.net :)
 Sub Main()
        Dim a(10) As Integer
        Dim b As Integer = 1
        Dim c As Integer

        Dim R As Random = New Random()
        For i As Integer = 0 To 10
            a(i) = R.Next(12)
            Console.WriteLine("[" + i.ToString() + "] => " + a(i).ToString())
        Next

        For i As Integer = 0 To 10 
           If ((a(i) Mod 2 = 0) And (a(i) < 0)) Then b = b * a(i)
            If ((a(i) Mod 3 = 0) Or (a(i) Mod 5 = 0)) Then c = c + 1
        Next
        Console.WriteLine("Произведение чётных отрицательных: " + b.ToString())
        Console.WriteLine("Кол-во кратных 3 или 5: " + c.ToString())
        Console.Read()
    End Sub