lập trình tích a)y=1/1+1/2+1/3+…+1/100 b) y=1/1+1/2+1/3+…+1/a+… Cho tới khi 1/a < 0.01

0 bình luận về “lập trình tích a)y=1/1+1/2+1/3+…+1/100 b) y=1/1+1/2+1/3+…+1/a+… Cho tới khi 1/a < 0.01”

1. a, 

   var y:real;

         i:word;

   begin

         y:=0;

         i:=1;

   for i:=1 to 100 do

   y:=y+1/i;

   i:=i+1;

   write(‘y:= ‘,y:3:2);

   readln

   end.

   Bình luận