(Tin học 8-Pascal- nâng cao)

Question

Bạn hãy viết chương trình nhập số thực A và tìm ra số tự nhiên nhỏ nhất N sao cho:

1+1/2+1/3+...+1/N>A

Answer 1

S= 1+1/2+1/3+...+1/N nên N>=1 và n là số nguyên dương. Do vậy S >=1. Vậy nếu nhập A<1 thì sẽ không tồn tại giá trị N ngược lại bạn viết chương trình như sau:
var s,a:real;
begin
readln(a);
s:=1;
n:=1;
while s <= a do
begin
n:=n+1;
s:=s+1/n;
end;
writeln('So n nho nhat de ',s,' < ',a,' la:',n);
readln;
end.