Tin học viết chương trình tính S=1+1/2+1/3+…+1/100 30/07/2021 By Isabelle viết chương trình tính S=1+1/2+1/3+…+1/100
Mình giúp bạn nhé: var s:real;i:longint;begins:=0;for i:=1 to 100 dos:=s+1/i;write(s:0:2);readlnend. Trả lời
var s:real;i:longint;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i;
write(s:0:2);
readln
end.
Mình giúp bạn nhé:
var s:real;i:longint;
begin
s:=0;
for i:=1 to 100 do
s:=s+1/i;
write(s:0:2);
readln
end.