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.
Var i , n : integer;
S: real;
Begin
write (' n ='); read (n);
S:= 0
For i:= 1 to n do S:= S+ 1/i;
Write (S);
Readln;
End.
program bai1;
var s,n,i:longint;
begin
write('N= ');readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
write('s= ',s);
readln
end.
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/(i*i*i);
write('S = ',s:6:2);
readln
end.
Var i , n : Integer;
S : real;
Begin
write (' n = ') ; read (n);
S:=0
For i:=1 to n do S:= S + 1/i;
Writeln ( S );
Readln;
End.
program bai1;
var i,n,s:longint;
begin
write('N= ');
readln(n);
s:=1;
for i:=2 to n do s:=s+1/i;
write('s= ',s);
readln
end.
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+1/i;
i:=i+2;
end;
writeln('S=',s:4:2);
readln;
end.
1.While...do :lặp với số lần chưa biết trước
For....do : lặp với số lần đã biết trước
2.Sau khi thực hiện đoạn chương trình thì S=15
USES crt;
VAR s,n,i:integer;
BEGIN
clrscr;
write('Nhap n:');readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
writeln('Ke qua cua s la:',sqrt(s));
readln;
END.