📄 makedata.pas
字号:
program makedataofstick;
var
i,n:integer;
s:string;
begin
randomize;
writeln('Input N:(<=5000)');
readln(n);
writeln('Input file name:');
readln(s);
assign(output,s);
rewrite(output);
writeln(n);
for i:=1 to n do
begin
write(random(10000)+1,' ',random(10000)+1,' ');
end;
writeln;
close(output);
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -