program klasa;
var i,n:integer;
f:text;
s:string;
begin
randomize;
writeln('program wykonuje podane zadanie:)');
assign(f,'dolce.txt');
rewrite(f);
for i:=1 to 10 do
begin
n:=random(30);
str (n,s);
writeln(f,n);
end;
close(f);
writeln('losowanie skonczone licby dodane');
readln;
end.
Wyszukiwarka

Podobne podstrony:
Czytanie i zapisywanie do pliku tekstowego
struktury z plikiem DYSKI TWARDE dopis do pliku odczyt więcej niż 120Gb
struktury z plikiem MONITORKI LCD dopis do pliku odczyt
pisanie tekstu do pliku
Wpisywanie danych do pliku test
lab5 drukuje wynik do pliku wynik
WNIOSEK o wpis do rejestru org tur
Podzielniki liczb naturalnych do 2000
Policz sume kolejnych liczb calkowitych z zakresu od N1 do N2 (N1 mnijesze od N2)
Policz sume kolejnych liczb calkowitych z zakresu od N1 do N2 (N1 mnijesze od N2)

więcej podobnych podstron