04.08.2006, 23:09
общий
это ответ
Здравствуйте, Томша Павел!
Не совсем понятно, что вы имеете ввиду. В приложении функция, которая с вероятностью P% выводит число A, иначе - число B.
Приложение:
function RandomTwo(A, B, P: integer): integer;begin if (Random(100) < P) then Result := A else Result := B;end;