恩把int64改成longint之后强制转换类型
就比吉丽快 5%
BZOJ Pascal 第一A (虽然差352ms就TLE了)

orz

RT.

program testprogram;
var a:string; n,b:longint;
begin
writeln(*Description:*);
writeln(*When using,copy the batch file together with enter,Or there will be problems about timming*);
writeln;
writeln(*Input program name and the number of datas,one line for one*);
readln(a,n);
assign(output,*Check.bat*);
rewrite(output);
writeln(*@echo off*);
writeln(*if "%1"=="" goto loop*);
writeln(*copy *,a,*%1.in *,a,*.in >nul*);
writeln(*echo Problem Test*);
writeln(*echo Data %1*);
writeln(*time<enter*);
writeln(a);
writeln(*time<enter*);
writeln(*fc *,a,*.out *,a,*%1.ans*);
writeln(*del *,a,*.in*);
writeln(*del *,a,*.out*);
writeln(*pause*);
writeln(*goto end*);
writeln(*:loop*);
write(*for %%i in (*);
for b:=1 to n do
write(b,* *);
write(*) do call %0 %%i*);
writeln;
writeln(*:end*);
close(output);
assign(output,*enter*);
rewrite(output);
writeln;
close(output);
end. {=====Created by Hoblovski}
{=====Not reserving any rights}
{=====I believe you understand English}
高一写的了,不要喷代码风格以及没有缩进.