Tổng A=1+1/2+1/3+1/4+...+1/n. Viết chương trình nhập số thực b. Tìm số n sao cho tổng A nhỏ nhất lớn hơn b, khi đó tổng sẽ bằng bao nhiêu?
2 câu trả lời
program oken;
uses crt;
var n,i: longint;
a,b: real;
begin
clrscr;
write('Nhap n: '); readln(n);
a:=0;
for i:=1 to n do
a:=a+1/i;
writeln('Tong A: ',a:0:3);
write('Nhap so thuc B: '); readln(b);
while a<=b do
begin
i:=i+1;
a:=a+1/i;
end;
writeln('So n can tim: ',i);
writeln('Tong A moi: ',a:0:3);
readln;
end.
uses crt;
var i : integer; b, A : real;
begin
clrscr;
write('Nhap so thuc b : '); readln(b);
A := 0; i := 1;
while A <= b do
begin
A := A + 1 / i; i := i + 1;
end;
write('So n = ', i - 1);
readln
end.
Câu hỏi trong lớp
Xem thêm