K
Khách
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ác câu hỏi dưới đây có thể giống với câu hỏi trên
14 tháng 5 2020
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.
HT
1
S
18 tháng 3 2019
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.
TT
22 tháng 4 2021
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.
11 tháng 3 2020
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);