Bài 6: Phép toán, biểu thức, câu lệnh gán

H24

vct tinh 1+1/2+1/3+...+1/N ... cho den khi 1/n <= 0.01

 

NT
29 tháng 1 2021 lúc 22:20

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

n:=1;

s:=1;

while 1/n>1/100 do 

  begin

n:=n+1;

s:=s+1/n;

end;

writeln(s:4:2);

readln;

end.

Bình luận (0)
BT
29 tháng 1 2021 lúc 19:40

Bình luận (0)

Các câu hỏi tương tự
TL
Xem chi tiết
BP
Xem chi tiết
DT
Xem chi tiết
PV
Xem chi tiết
HL
Xem chi tiết
PA
Xem chi tiết
NB
Xem chi tiết
H24
Xem chi tiết
NT
Xem chi tiết