Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. сделать для программы паскаль! с функций div и mod

Var a,b,c,x: integer; begin      x: =random (899) +100;       writeln('x= ', x);       a: = x div 100;   {первая цифра}     b: =(x mod 100) div 10;   {вторая цифра}     c: = x mod 10;   {третья цифра}     writeln(a,',',b,',',c);   end.

Для перевода двоичного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания двоичной системы счисления на соответствующие цифры в разрядах двоичного числа. например, требуется перевести двоичное число 10110110 в десятичное. в этом числе 8 цифр и 8 разрядов ( разряды считаются, начиная с нулевого, которому соответствует младший бит). в соответствии с уже известным нам правилом представим его в виде суммы степеней с основанием 2: 101101102 = (1·27)+(0·26)+(1·25)+(1·24)+(0·23)+(1·22)+(1·21)+(0·20) = 128+32+16+4+2 = 182 10 сам попробуй

Как могут соотноситься между собой числа: (a) одно число 0, второе - нечетное в промежутке [1, 27] (получается, если в исходном числе одна четная цифра - 0 - и три нечетных, или три нуля и одно нечетное) (b) одно число 0, второе - четное в промежутке [2, 36] (получается, если в исходном числе нет нечетных цифр или нет четных цифр или два нуля и две нечетные цифры) (с) одно число четное в промежутке [2, 8], второе нечетное в промежутке [3, 27] (получается, если одна чётная цифра и три нечётных) (d) одно число четное в промежутке [2, 24], второе нечетное в промежутке [1, 9] (получается, если одна нечётная  цифра и три четных) (e) оба числа четные, одно в промежутке [2, 18], второе в промежутке [2, 16] (получается, если две чётных цифры  и две нечётных) дальше каждое число (кроме 370) разбито на 2, в скобках стоит тот случай, под который подпадает число 236: 23, 6 (c, +) 1313: 13, 13 270: 27, 0 (a, +) 1114: 11, 14 (< , -) 1614: 16, 14 (e, +) 187: 18, 7  (c, +) 370: - 294: 29, 4 40: 4, 0 (b, +) ответ. 5 чисел