Viết chương trình in ra màn hình tính tổng các số hữu tỉ : S=1+1/2+1/3+-+1/N

0 bình luận về “Viết chương trình in ra màn hình tính tổng các số hữu tỉ : S=1+1/2+1/3+-+1/N”

1. var n:longint;

        s: real;

   begin

   write(‘Nhap n: ‘); readln(n);

   for i:=1 to n do

   s:=s+1/i;

   write(‘Tong la: ‘,s);

   readln;

   end.

   Bình luận

2. program BTH;

   uses crt;

   var i, n : integer;

   S : real;

   begin

   clrscr;

   writeln(‘Nhap n: ‘); readln(n);

   S:=0; i:=1;

   while i<=n do begin

   S:=S+1/i; i:=i+1;

   end;

   writeln(‘Tong day so tren la: ‘,S:2:3);

   readln

   end.

   Bình luận