Question

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 :>

Answer 1

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.