Sum of 2002 levels

Title Description Description

Known: sn= 1+1/2+1/3+ ... +1/n. Obviously for any one integer k, when n is large enough, SN is greater than K.
An integer k (1<=k<=15) is given, which requires the calculation of a minimum n, which makes the sn>k.

Enter a description input Description

Keyboard input K

Outputs description output Description

Screen Output n

Sample input to sample

1

Sample output sample outputs

2

Data size & Hint

Exercises

Simulation.

Each time the cumulative 1 is divided by the value of n until the value is greater than S.

var i,k,n:longint;

S:real;

Begin

READLN (k);

While S<=k do

Begin

Inc (N);

s:=s+1/n

End

Writeln (N)

End.

Sum of 2002 levels