mô tả thuật toán :tính S=1+1/2+1/3+-+1/100

0 bình luận về “mô tả thuật toán :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