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

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

1. var s:real;i:longint;

   begin

   s:=0;

   for i:=1 to 100 do

   s:=s+1/i;

   write(s:0:2);

   readln

   end.

   Bình luận

2. Mình giúp bạn nhé:

   var s:real;i:longint;
   begin
   s:=0;
   for i:=1 to 100 do
   s:=s+1/i;
   write(s:0:2);
   readln
   end.

   Bình luận