40 может быть) честно не смотрел))

32 а что именно в ИиП?

1
Теоретически на любом копьютере можно смоделировать рандом, зная его алгоритм выполняемый на другом. И опять таки теоретически можно даже предсказывать результаты выпадения ;-)

Вот пример показывающий работу ГПСЧ
Эти строки в нужно скопировать в текстовый файл с раширением vbs

Dim MyValue
dim soWshShell : set soWshShell = CreateObject("WScript.Shell")
dim tm

tm = #20:18:55# 'либо использовать tm = time() для случайных чисел

WScript.Echo tm

Randomize(time())
MyValue = CInt(Int((36 * Rnd()) + 1))
WScript.Echo MyValue

44 зачем? ты правильно написал псевдо, на компе нет абсолютно случ, только псевдо.. вот если б выложил как рулетка генерит)))

45
Это всего лишь пример, что псевдослучайное число можно предсказать... В реальности все гораздо более сложнее и алгоритм хитрее выглядит...

Если бы знал алгоритм - давно бы разбогател ;-)

=) Spetros прав. Вот он меня правильно понял=)

В дополнение к 44
Строчку Randomize(time()) можно писать/читать как Randomize(tm)
Тогда произойдут интересные вещи... а прога станет более универсальной ;-)

То был простой ГПСЧ, а стал программируемый.. по значению переменной tm