Rešitev: program Naključna cela števila (Pascal)

Iz MaFiRaWiki

Naloga: program Naključna cela števila

Program Nakljucna;
var
  a, b, n, i: Integer;
begin
  Randomize;
  Write('n = ');
  ReadLn(n);
  Write('a = ');
  ReadLn(a);
  Write('b = ');
  ReadLn(b);
  for i := 1 to n do
  begin
    WriteLn(a+Random(b-a+1));
  end;
end.

Preizkušeno s prevajalniki: Turbo Pascal 5.5, Free Pascal 2.1.4, Borland Delphi 7.

Osebna orodja