UC知道菜鸟PASCAL
来源：百度知道 编辑：UC知道 时间：2024/06/09 14:42:45
program ss;
var a,n:longint;
s:real;
begin
s:=0;
for n:=1 to 2143588810 do
begin
if (n mod 11=0 ) then s:=s+1;
end;
writeln('s=',s);
readln;
end.
哪里错了啊~
var a,n:longint;
s:real;
begin
s:=0;
for n:=1 to 2143588810 do
begin
if (n mod 11=0 ) then s:=s+1;
end;
writeln('s=',s);
readln;
end.
哪里错了啊~
...
没错，只是运行起来会要很久时间...你可以运行以后开着电脑耐心等..还是不会要太久的。
建议你直接
begin
writeln('s=',2143588810 div 11);
end.
这两个程序的效果是一样的，但是这个会非常快~~。。。