Cho S=1/1+1/2+1/3+...+1/101 Viết chương trìng Pascal sử dụng câu lệnh lặp để tính tổng S
2 câu trả lời
uses crt;
var S:real;
i:byte;
begin
clrscr;
S:=0;
for i:=1 to 101 do s:=s+1/i;
write('s = ',s:4:2);
readln
end.
Uses crt;
Var i: integer;
s : real;
Begin clrscr;
s:=0;
For i:=1 to 101 do
s := s+1/i;
Write('Tong S=',s);
readln
end.