Viết chương trình tính S=1+1/2+1/3+1/4+…+1/n với n nhập từ bàn phím

0 bình luận về “Viết chương trình tính S=1+1/2+1/3+1/4+…+1/n với n nhập từ bàn phím”

1. uses crt;
   var S:real; i,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do s:=s+1/i;
      write(‘S=’,S:4:2);
      readln
   end.

   Bình luận

2. Program tinh_tong;

   Uses crt;

   Var i,n: integer;

          S: real;

   Begin 

   Write (‘Nhap n=’);

   Readln (n);

   S:=0;

   For i:= 1 to n do 

   S:= S+ 1/i;

   Writeln (‘Tong S la:’,S:5:2);

   Readln

   End.

   Bình luận