Lập trình tính tổng dùng lệnh lặp while ...do trong đó n là số tự nhiên được nhập từ bàn phím
\(A=1+\frac{1}{2}+\frac{1}{3}+\frac{1}{4}+.....+n\left(n\in N\right)\)
giúp e với ạ ,cảm ơn rất nhiều
đủ nắng hoa sẽ nở,đủ sự giúp đỡ từ mọi người e sẽ ko tạch môn tin :>
uses crt;
var n,i:integer;
a:real;
begin
clrscr;
repeat
write('n='); readln(n);
until n>0;
a:=0;
i:=1;
while i<=n do
begin
a:=a+1/i;
inc(i);
end;
writeln('A=',a:4:2);
readln;
end.