Bài 10: Cấu trúc lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Tuấn Anh

Hãy viết chương trình tìm giá trị của N thỏa mãn biểu thức sau:

1+ \(\dfrac{1}{2}\)+\(\dfrac{1}{3}\)+...+\(\dfrac{1}{N}\) >a

Biết a được nhập từ bàn phím.

Giúp mình với.

Người Rep Dạo
19 tháng 2 2021 lúc 17:26

Nguyễn Lê Phước Thịnh
19 tháng 2 2021 lúc 19:23

uses crt;

var s:real;

a,n:integer;

begin

clrscr;

write('Nhap a='); readln(a);

n:=0;

s:=0;

while s<=a do 

  begin

n:=n+1;

s:=s+1/n;

end;

writeln(n);

readln;

end.


Các câu hỏi tương tự
Quân Nguyễn
Xem chi tiết
언방용
Xem chi tiết
Phụng Lã
Xem chi tiết
Jack Viet
Xem chi tiết
Nguyễn Thị Mơ
Xem chi tiết
nguyen thi be
Xem chi tiết
Jack Viet
Xem chi tiết
Ngô Chí Thành
Xem chi tiết
JohnBlue
Xem chi tiết