Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hiếu Phí Lê

Các bạn giúp mik nhanh nhé

N0317B - Tính tổng

Dữ liệu vào: standard input

Dữ liệu ra: standard output

Giới hạn thời gian: 10.0 giây

Giới hạn bộ nhớ: 128 megabyte

Đăng bởi: admin

 

Yêu cầu: Cho S = 1 + 1/2 + 1/3 + ... + 1/n. Nhập vào số thực A  hãy tìm số nguyên dương n nhỏ nhất sao cho S > A .

Dữ liệu: Một dòng ghi số A duy nhất.

Kết quả: Ghi ra kết quả  số nguyên dương n.

Dữ liệu đảm bảo số bước lặp không quá 106

Ví dụ

input

2

output

4

Nguyên Hưng Trần
23 tháng 7 2021 lúc 19:52

Uses crt;

var i,n:longint;

     S,A:real;

begin

clrscr;

Readln(A);

S:=0;n:=0;

while S<=A do

  Begin

  S:=0; 

  inc(n);

  for i:= 1 to n do S:=S+1/i;

  end;

Writeln(n);

readln;

end.


Các câu hỏi tương tự
Hiếu Phí Lê
Xem chi tiết
Hiếu Phí Lê
Xem chi tiết
huynh chinh
Xem chi tiết
le thao
Xem chi tiết
89654DAUUBUOIIIII956
Xem chi tiết
Dang2009 Trần
Xem chi tiết
havy
Xem chi tiết
Hải Trần
Xem chi tiết
NGuyễn Tuấn
Xem chi tiết