Question

Pascal while语句 求s=1+1/2+1/3+.......+1/100;

Answer 1

var
    n:integer;
    s:real;
begin
    n:=100;
    s:=0;
    while n>=1 do begin
        s:=s+1/n;
        dec(n);
    end;
    writeln(s);
end.