Question

[Nguyễn Thị Ngọc Oanh]

Viết chương trình tính tổng: S=1+1/2+1/3+...+1/n  

Biết n là số tự nhiên được nhập từ bàn phím

Answer 1

[ttanjjiro kamado]

var i,n: integer;

       s:real;

begin

write(‘Nhập n: ‘); readln(n);

i:=1;

repeat 

s:=s+1/i;

i:=i+1;

until i=n;

write(‘s =‘, s:0:4);

readln

end.

      diepbich  016/08/2021 at 03:53Reply

Program Hotboy ;

Uses crt; 

Var n,i,s : real;

Begin

Writeln(‘nhap n’);  readln(n);

Repeat 

S:=S+ 1/i;

I:=i+1 ; 

Until n=i; 

Writeln(‘S=’,S);

Readln

End.

Answer 2

[ttanjjiro kamado]

bạn tham khảo nha