Question

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á 10⁶

Ví dụ

input

2

output

4

Answer 1

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.