Не забудьте поблагодарить за решение и отметить его как лучшее, если вам понравился ответ
Если переменная создана уже в варе, то она будет равна 0, а если вообще не создана , то вообще будет ошибка компиляции
Отв: 135000 мегабайт
так как в 1 часе 3600 сек.
а в 1 сек. 25 кадров
Считая, что функция 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>