Bài 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/(2*i+1);

writeln(s:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double s,a;

int i,n;

int main()

{

cin>>a;

s=0;

n=0;

while (s<=a) 

{

n=n+1;

s=s+1/(n*1.0);

}

cout<<n;

return 0;

}

tức là từ a cộng mấy đến a+n vậy bạn?

Bạn tự khai báo nhé!;

Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha

4...

begin

repeat

write('N= '):

readln(n);

until n>0;

s:=0;

for i:=1 to n do

s:=s+1/n;

write('s= ',s);

readln

end.

Program HOC24;

var a: real;

i,n: integer;

begin

write('Nhap n='); readln(n);

a:=0;

for i:=1 to n do a:=a+1/i;

write('A= ',a);

readln

end.

Thuật toán: 

Bước 1: Nhập n

Bước 2: i←1; a←0;

Bước 3: a←a+1/(i*(i+2));

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: xuất a

Bước 7: Kết thúc

Viết chương trình:

uses crt;

var a:real;

i,n:longint;

begin

clrscr;

write('Nhap n='); readln(n);

a:=0;

for i:=1 to n do

a:=a+1/(i*(i+2));

writeln(a:4:2);

readln;

end.

uses crt;

var s:real;

a,n:integer;

begin

clrscr;

write('Nhap a='); readln(a);

n:=0;

s:=0;

while s<=a do 

  begin

n:=n+1;

s:=s+1/n;

end;

writeln(n);

readln;

end.

Program HOC24;

var s: real;

i,n: integer;

function tong(x: integer): longint;

var j: integer;

t: longint;

begin

t:=0;

for j:=1 to x do t:=t+j;

tong:=t;

end;

function tich(s: integer): longint;

var j1: integer;

t1: longint;

begin

t1:=1;

for j1:=1 to s do t1:=t1*j1;

tich:=t1;

end;

begin

write('Nhap N : '); readln(n);

for i:=1 to n do s:=s+tong(i)/tich(i);

write('S = ',S:2:2);

readln

end.

uses crt;

var s:real;

i,n:longint;

{------------ham-tinh-giai-thua------------------------}

function gthua(x:longint):real;

var gt:real;

i:longint;

begin

gt:=1;

for i:=1 to x do 

  gt:=gt*i;

gthua:=gt;

end;

{-------------------chuong-trinh-con-tinh-tong---------------------}

function tong(x:longint):real;

var t:real;

i:longint;

begin

t:=0;

for i:=1 to x do 

  t:=t+i;

tong:=t;

end;

{------------------chuong-trinh-chinh--------------------}

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+(tong(i)/gthua(i));

writeln('Ket qua la: ',s:4:2);

readln;

end.

,,,