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
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
//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.