Giải hộ em: viết câu lệnh for-do tính tổng sau S=1+1/2+1/3+...+1/(n+1) cho đến khi 1/(n+1) ≤0.01
2 câu trả lời
Program BTT;
Uses crt;
Var n,i: longint;
s: extended;
Begin
Clrscr;
s:=0;
n:=0;
While 1/(n+1) > 0.01 do
Begin
s:=s+1/(n+1);
inc(n);
End;
Write('S = ',s:0:2);
Readln
End.
program bt;
uses crt;
var S,n:real;
begin
clrscr; n:=1.0;
While n<99 do
begin
S:=S+1/(n+1);
n:=n+1.0;
end;
writeln('Tong S la: ',S:0:3);
readln;
end.
Câu hỏi trong lớp
Xem thêm
