Bài toán 2. Tính và đưa kết quả ra màn hình tổng
S=(1/a+1)+(1a+2+)…+(1a+N)
Hãy lập trình tính tổng S cho đến khi 1a+N<0,0001 trong đó số N là số nguyên dương nhỏ nhất bằng bao nhiêu.(làm bằng free pascal)
Bài toán 2. Tính và đưa kết quả ra màn hình tổng S=(1/a+1)+(1a+2+)…+(1a+N) Hãy lập trình tính tổng S cho đến khi 1a+N<0,0001 trong đó số N là số nguyê
By Mary
uses crt;
var a,i,n: integer;
s: real;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
repeat
i:=+1;
a:=a+1;
s:=s+(1/(a+i));
until i=n;
writeln (‘tong la: ‘,s:1:3);
readln;
end.
uses crt;
var i,a:longint; s:real;
begin
clrscr;
write(‘a=’);readln(a);
repeat
inc(i);
s:=s+1/(a+i);
until 1/(a+i)<0.0001;
writeln(‘N= ‘,i);
readln
end.