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

Lập phương trình tính tổng :

 A=1+1/2+1/3+...+1/n

Nguyễn Đức Anh
27 tháng 4 2022 lúc 7:30

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.


Các câu hỏi tương tự
phan thị ngọc thùy
Xem chi tiết
Phạm thị thảo ly
Xem chi tiết
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Hanh Nguyen
Xem chi tiết
Nguyễn Trương anh khoa
Xem chi tiết
꧁ Sơn 8/2 ꧂
Xem chi tiết
T4❤️BP"~*{Blackpink ❤️}°...
Xem chi tiết
lê thế hiếu
Xem chi tiết
Treallagx
Xem chi tiết
Thị Thảo Ly Hoàng
Xem chi tiết