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;

   S:=0; 

   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. program window
   uses crt;
   var n,i:integer;
       t:real;
   begin
        clrscr;
        writeln(‘Nhap n’);
        readln(n);
        t:=0;
        for i:=1 to n do
            t:=t + 1/i;
        writeln(‘Tong la: ‘,t:4:2);
   readln;
   end.

   chúc bạn học tốt!

   Bình luận