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 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
