Question

Zadanie 2.
Napisz program, który zapisuje do pliku liczby losowe z zakresu od a do b, gdzie a i b jest podane z
klawiatury

we freepascalu jak najprosciej

Answer 1

//licze na naj...

 
program nazwa;
uses crt;
var
a,b:integer;
los:integer;
plik:text;
napis:string;

begin
clrscr;

writeln('Podaj a: ');
readln(a);
writeln('Podaj b: ');
readln(b);


assign(plik,'liczby_losowe.txt');
rewrite(plik);
randomize;
los:=a+random(b);
writeln(plik,los);

close(plik);

readln;
end.