📄 ftest1b.pll
字号:
PROGRAM FTEST_1B (OUTPUT);
VAR
i, opf : INTEGER;
BEGIN
ASSIGN(opf@, 'NUMBER.DAT');
REWRITE(opf@);
FOR i := 1 TO 500 DO
BEGIN
Writeln(opf@, i%)
END;
CLOSE(opf@);
Writeln(opf%);
END.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -