Считая, что функция random() возвращает <span>случайные числа с равномерным </span><span>законом распределения и что 7/16*100 = 43,75, 8/16*100 = 50, 1/16 = 6,25, задачу можно решить так:
begin
var c:=random(1,16);
case c of
1,5,7,9,11,13,15: writeln(c,' - Красный');
2,4,6,8,10,12,14,16: writeln(c,' - Чёрный');
else writeln(c,' - Зелёный');
end;
end.
Пример:
7 - Красный
</span>
Достаточно задать два вопроса:Какой ты год родилась и месяц?
А)111
Б)10001
В)1110
Г)110000
Д)1100010
Е)1100110
Ж)11000001
З)11111110
И)1000000001
К)1111100111
Нужно умножить стороны треугольника