Tin học mô tả thuật toán :tính S=1+1/2+1/3+-+1/100 30/07/2021 By Clara mô tả thuật toán :tính S=1+1/2+1/3+….+1/100
var s:real;i:longint;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i;
write(s:0:2);
readln
end.