Viết chương trình tính tổng S = 1/2 + 1/3 + 1/4 + 1/5 + … + 1/n. Với n được nhập từ bàn phím, đưa ra kết quả trên màn hình

0 bình luận về “Viết chương trình tính tổng S = 1/2 + 1/3 + 1/4 + 1/5 + … + 1/n. Với n được nhập từ bàn phím, đưa ra kết quả trên màn hình”

1. Program Hotboy;

   Uses crt; 

   Var s:real;

   I,n:integer;

   Begin

   Clrscr;

   Write(‘nhao so n’); readln(n) ;

   For i:=2 to n do 

   S:=S+1/i ;

   Writeln(‘tong S la’,S);

   Readln

   End.

   Bình luận

2. var i,n : integer;

    s : real;

   begin

    readln(n); s:=0;

    for i:=2 to n do s:=s+(1/i);

    writeln(s:0:2);

    readln;

   end.

   Bình luận