var s:string;
begin
assign(input,'test.txt');
reset(input);
read(s);
writeln(s);
readln;
close(input);
end.
Pascal文件读写(2)
最新推荐文章于 2023-03-22 10:42:38 发布
var s:string;
begin
assign(input,'test.txt');
reset(input);
read(s);
writeln(s);
readln;
close(input);
end.