Lập trình tính tổng sau: S=1+1/2+1/3+...+1/n+...... Cho đến khi 1/n <= 0,0001
2 câu trả lời
program tinhtong;
uses crt;
var s:real;
n:integer;
begin
clrscr;
s:=0; n:=1;
while 1/n>0.0001 do
begin
s:=s+1/n;
n:=n+1;
end;
write('S= ',s:2:3);
readln
end.
Uses Crt ;
Var i , n : Integer ;
tong: Real ;
BEGIN
Clrscr ;
Write (' Cho so tu nhien n : ') ; Readln (n) ;
tong :=0 ;
i :=1 ;
While i <= n Do
Begin
tong := tong + 1/i ;
i := i + 1 ;
End ;
Writeln (' Tong can tim la : ', tong:12:6 ) ;
Readln ;
END .
DIDI2708
