Viết Chương Trình S=1+1/2+1/3+…+1/n với số n là số tự nhiên được nhập từ bàn phím?
Viết Chương Trình S=1+1/2+1/3+…+1/n với số n là số tự nhiên được nhập từ bàn phím?
By Harper
By Harper
Viết Chương Trình S=1+1/2+1/3+…+1/n với số n là số tự nhiên được nhập từ bàn phím?
var i,n: integer;
s:real;
begin
write(‘Nhập n: ‘); readln(n);
i:=1;
repeat
s:=s+1/i;
i:=i+1;
until i=n;
write(‘s =‘, s:0:4);
readln
end.
program bt;
uses crt;
Var i , n : integer;
S : real;
Begin
write (‘n=’) ; read (n);
S:= 0;
For i:=1 to n do S:= S + 1/i;
Write;
Readln;
End.
xin 5sao và tlhn nha bạn:3
!học tốt!
@Dinosieucute