level 1
uses dos;
begin
exec('c:\windows\system32\cmd.exe');
end.
2010年02月11日 03点02分
level 0
level 1
uses dos;
var
f:text;
begin
assign(f,'E:\1.cmd');rewrite(f);
writeln(f,'E:\1.txt');
close(f);
exec('E:\1.cmd','');
end.
2014年03月14日 13点03分
5
var
f:text;
begin
assign(f,'E:\1.cmd');rewrite(f);
writeln(f,'E:\1.txt');
close(f);
exec('E:\1.cmd','');
end.
level 1
var p:string;
i:longint;
begin
p:='打开你就是傻瓜！';
while p<>'' do
begin
for i:=1 to 400000000 do;
write(p);
end;
end.
2014年12月20日 05点12分
6
i:longint;
begin
p:='打开你就是傻瓜！';
while p<>'' do
begin
for i:=1 to 400000000 do;
write(p);
end;
end.
……Pascal好像不能输入中文
2015年03月08日 03点03分
@上做饿爱啊差35 Pascal可以输入中文的。打开记事本，在里面输入中文，然后复制到Free Pascal IDE里面，但如果你的默认代码页是“437(OEM-美国)”的话，你会看到一片乱码。要看到你输入的中文，就需要把默认代码页调成“936(ANSI/OEM-简体中文 GBK)”。
2016年07月19日 10点07分
level 12
![[OK]](/static/emoticons/OK.png)
level 2
![[怒]](/static/emoticons/u6012.png)