Question

计算1+1/2+1/3+......+1/50（用pascal语言，for循环做）

急求！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

Answer 1

var
s:real;
i:integer;
begin
s:=0;
for i:=1 to 50 do
s:=s+1/i;
writeln(s);
end.

追问

计算1*2+2*3+...+10*11（用pascal语言，for循环来做）

追答

没问题
var
i,s:integer;

begin
s:=0;
for i:=1 to 10 do
s:=s+i*(i+1);
writeln(s);
end.

追问

厉害，再问你一道题：计算1+2+3+......+n<=10000的最大的n及和值（用pascal语言，while循环和repeat循环来做）

追答

var
s,i:integer;
begin
s:=0;
for i:=1 to 1000 do
begin
s:=s+i;
if s>10000
then begin writeln(i-1);break;end;
end;
end.
while循环
var
i,s:integer;
begin
s:=0;
i:=0;
while (s<=10000) do
begin
inc(i);
s:=s+i;
end;
writeln(i-1);
end.
多给点分呗

追问

大哥，我问的是while循环和repeat循环，不是for循环。还有计算1+2+3+......+n1000（用pascal语言，while循环和repeat循环来做）。4、从键盘输入10个整数，计算这10个数的和，用pascal语言，while和repeat循环做。
谢了