Cho số thực a lập trình tìm số nguyên dương n nhỏ nhất thỏa mãn 1+1/2+1/3+...+1/n>a
1 câu trả lời
Program BTT;
Uses crt;
Var a,s: extended;
n: longint;
Begin
Clrscr;
Write('Nhap a: '); Readln(a);
s:=0;
n:=1;
While s<=a do
Begin
s:=s+1/n;
inc(n);
End;
Write('N = ',n);
Readln
End.
