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

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

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

 

Nguyễn Lê Phước Thịnh
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ùi Anh Tuấn
29 tháng 1 2021 lúc 19:40


Các câu hỏi tương tự
thien long
Xem chi tiết
Bun Phạm
Xem chi tiết
Đức Nguyễn Trung
Xem chi tiết
Phạm Việt
Xem chi tiết
Hary Jen Li
Xem chi tiết
Phạm Thị Lan Anh
Xem chi tiết
Nhung Thùy Bùi
Xem chi tiết
Hoangthidale
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết