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

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.