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+ 1/2+1/3+...+1/N >a Biết a được nhập từ bàn phím. Giúp mình với
1 câu trả lời
uses crt;
var n,a:longint; s:real;
begin
clrscr;
write('a=');readln(a);
while s<=a do
begin
inc(n);
s:=s+1/n;
end;
writeln('n= ',n);
readln
end.
