35 lines
672 B
ObjectPascal
35 lines
672 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> 10 <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
const filename = 'a.dat';
|
|||
|
|
|
|||
|
|
var f: file of integer;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
if not FileExists(filename) then
|
|||
|
|
begin
|
|||
|
|
assign(f,filename);
|
|||
|
|
rewrite(f);
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> ',filename);
|
|||
|
|
for var i:=1 to 10 do
|
|||
|
|
begin
|
|||
|
|
var x := random(100);
|
|||
|
|
write(x,' ');
|
|||
|
|
write(f,x);
|
|||
|
|
end;
|
|||
|
|
close(f);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
assign(f,filename);
|
|||
|
|
reset(f);
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> ',filename);
|
|||
|
|
for var i:=1 to 10 do
|
|||
|
|
begin
|
|||
|
|
var x: integer;
|
|||
|
|
read(f,x);
|
|||
|
|
write(x,' ');
|
|||
|
|
end;
|
|||
|
|
close(f);
|
|||
|
|
erase(f);
|
|||
|
|
end;
|
|||
|
|
end.
|