Вместе с random Опции

[gor]

??? ???prostite smojete vi mne pomoch napisat programu  s pomashu RANDOM , chto bi kampjuter dala mne 4 raznix chisel 0....9,
sposibo za pomoshch!!!!!!!!!! :D :D :D

[Clane]

Если мне MJ правильно перевел, то тебе поможет вот этот код :

Код

x:=0;
rаndomize;
for x := 1 to 4 do WriteLn(Random(10));

Сообщение отредактировано: volvo - 17.12.2004 16:49

[mj]

Код

program R;
var
 X: Byte;
begin
 radomize;
 for x := 1 to 4 do
   WriteLn(Random(10));
end.

Сообщение отредактировано: volvo - 17.12.2004 16:50

[Паук]

Проще задания я не встречал :