Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Cộng cho 1/n(n+n) chứ bạn
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+1/(i*(i+i));
i:=i+1;
end;
writeln(s:4:2);
readln;
end.
program tinhtong;
var S,n : integer ;
i : integer ;
begin
S :=0 ;
write ('nhap gia tri cua n ='); readln (n);
for i :=1 to n do S := S+i ;
write ('vay tong S =,'S);
readln ;
end.
câu2
var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/(i*(i+1))); writeln(' Tong la: ',s); readln; end.
var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/(i*(i+1)));
writeln(' Tong la: ',s);
readln;
end.
2) var n,i:integer;
s:real;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+(1/((2*i)-1));
writeln(' Tong la: ',);
readln;
end.
uses crt;
var s,i,n:longint;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i*(i+1);
writeln(s);
readln;
end.
Lời giải :
program hotrotinhoc ;
var i,n : integer;
S: real ;
begin
write('nhap n:'); readln(n);
for i:= 1 to n do
S:=S+1/i ;
write('S=',S);
readln
end.
Chào bạn , bạn nên kiểm tra lại đề câu dưới nhé , đề vòng lặp for i:= 1 to n do sau đó câu lệnh gán là S:=S+1/i*(i+1) sao giá trị cuối lại +4
bài s:=1+ 1/2+...+1/n
s:=0;
for i:=1 to n do
s:=s+1/i;
bài s= 1/1.2+1/2.3+.. 1/n(n+1) {n+4 là sai nhé}
s:=0;
for i:=1 to n do
s:=s+ 1/i*(i+1);