计算1/3+1/6+1/9+........+1/99的值(用for循环)

什么语言呢？

C语言程序为：

main(){
double s=0;
int i;
for (i=3;i<=99;i+=3) s+=1.0/i;
printf("%lf\n",s);
}

PASCAL语言程序为：
var s:real; i:integer;
begin
s:=0;
for i:=3 to 99 step 3 do
s:=s+1/real(i);
writeln(s);
end.