16,749
社区成员
发帖
与我相关
我的任务
分享
i := 0;
while i <= 1500000 do
begin
procedure_b(i);
inc(i,2);
end;
i := 1;
while i <= 1499999 do
begin
procedure_c(i);
inc(i,2);
end;
for i:=0 to 1500000 do
if (i % 2) = 0 then
begin
procedure_b(i);
end else
begin
procedure_c(i);
end;