Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
foxbi

Viết chương trình tính tổng
      S=1+1/2+1/3+....+1/n
    Với n là số nguyên được nhập từ bàn phím.

 

HT.Phong (9A5)
18 tháng 3 2023 lúc 8:11

Uses crt;

var n,i,s: integer;

begin clrscr;

readln(n);

for i:=1 to n do s:=s+1/i;

writeln(s);

readln;

end.


Các câu hỏi tương tự
Gia Linh
Xem chi tiết
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Nguyễn Huỳnh Khôi Nguyên
Xem chi tiết
Như Ý
Xem chi tiết
Phương Linh Pham Thị
Xem chi tiết
Nguyễn Huy Bảo Thạch
Xem chi tiết
Kim Anh
Xem chi tiết
Thảo My Lê Phương
Xem chi tiết
pham thanh
Xem chi tiết