13 lines
287 B
ObjectPascal
13 lines
287 B
ObjectPascal
// Ãåíåðàöèÿ ñëó÷àéíîãî ÷èñëà
|
|
var
|
|
i: integer;
|
|
r: real;
|
|
|
|
begin
|
|
i := Random(100);
|
|
writeln('Ñëó÷àéíîå öåëîå â äèàïàçîíå 0..99: ',i);
|
|
i := Random(2,5);
|
|
writeln('Ñëó÷àéíîå öåëîå â äèàïàçîíå 2..5: ',i);
|
|
r := Random;
|
|
writeln('Ñëó÷àéíîå âåùåñòâåííîå â äèàïàçîíå [0,1): ',r);
|
|
end. |