Viết các chương trình sau: -Tính tổng n phân số tự nhiên đầu tiên. -Tính tổng n phân số lẻ đầu tiên. -Tính tổng n các phân số chẵn đầu tiên. -Tính tíc

0 bình luận về “Viết các chương trình sau: -Tính tổng n phân số tự nhiên đầu tiên. -Tính tổng n phân số lẻ đầu tiên. -Tính tổng n các phân số chẵn đầu tiên. -Tính tíc”

1. var i,n:longint;

         s:real;

   begin

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

   for i:=1 to n do

   s:=s+(1/i);

   write(‘S : ‘,s);

   readln;

   end.

   Bình luận