Đăng nhập để hỏi chi tiết
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
2378
1794
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
1031
1059
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin