Viết chương trình in ra màn hình tổng của các phân số liên tiếp sau?
1+1/2+1/3+…+1/n với n là số tự nhiên được nhập từ bàn phím
Viết chương trình in ra màn hình tổng của các phân số liên tiếp sau?
1+1/2+1/3+…+1/n với n là số tự nhiên được nhập từ bàn phím
var i,n:longint;
s:real;
begin
read(n);
for i:=1 to n do
s:=s+1/i;
write(s:0:0);
end.
Uses Crt;
Var i,n:longint; S:real;
Begin
Clrscr;
Write(‘Nhap mau so n= ‘); Readln(n);
For i:= 1 to n do s:=s+1/i;
Write(‘Vay tong S = ‘,S);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhá!Đa tạ 😀
*p/s: Hỏi đáp, comment bên dưới!