题目描述
编程求1+1/2+1/3+...+1/n
输入输入一行，只有一个整数n(1<=n<=200)
输出输出只有一行（这意味着末尾有一个回车符号），包括1个实数。(保留3位小数)
样例输入5
样例输出2.283
提示循环语句
用repeat
和while做（两个代码）
(づ￣3￣)づ╭❤～
var
n,s:real;
begin
readln(n);
s:=1;
begin
repeat
s:=s+1/n
until (1<=n) and (n<=200);
end;
writeln(s:0:3);
end.
这个有什么错误

const r=0.5772
15664901532
860606512090082402431042
15933593992
3598805767234884867726777664670936947063291746749;
var n:longword;
begin
readln(n);
writeln(ln(n)+r+1/2/n-1/(12*n*n+1):0:3);
end.

不用while和repeat呀