n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/Random1.pas

13 строк287 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ��������� ���������� �����
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.