HN

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

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

NA
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.

Bình luận (0)

Các câu hỏi tương tự
PT
Xem chi tiết
PL
Xem chi tiết
NT
Xem chi tiết
HN
Xem chi tiết
NK
Xem chi tiết
S8
Xem chi tiết
H24
Xem chi tiết
LH
Xem chi tiết
H24
Xem chi tiết
TH
Xem chi tiết