Viết chương trình tính tổng S =1+ 1/2 +1/3 +…+1/100

0 bình luận về “Viết chương trình tính tổng S =1+ 1/2 +1/3 +…+1/100”

1. var n,i:integer; 
   S:real; 
   begin; 
   write(‘nhap n = ‘); 
   readln(n); 
   s:=0; 
   for i :=1 to n do S :=S + 1/i; 
   writeln(‘tong S = ‘,S:5:2); 
   readln 
   end.

   Bình luận