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.

Đặt A=\(\dfrac{1}{1.2.3}\)+\(\dfrac{1}{2.3.4}\)+\(\dfrac{1}{3.4.5}\)+...+\(\dfrac{1}{n\left(n+1\right)\left(n+2\right)}\)

=>2A=\(\dfrac{2}{1.2.3}\)+\(\dfrac{2}{2.3.4}\)+...+\(\dfrac{2}{n\left(n+1\right)\left(n+2\right)}\)

=\(\dfrac{1}{1.2}-\dfrac{1}{2.3}+\dfrac{1}{2.3}-\dfrac{1}{3.4}+...+\)\(\dfrac{1}{n\left(n+1\right)}-\dfrac{1}{\left(n+1\right)\left(n+2\right)}\)

=\(\dfrac{1}{2}-\dfrac{1}{\left(n+1\right)\left(n+2\right)}\)

=\(\dfrac{\left(n+1\right)\left(n+2\right)-2}{2\left(n+1\right)\left(n+2\right)}\)

=\(\dfrac{n^2+3n}{2\left(n^2+3n+2\right)}\)

=>A=\(\dfrac{n^2+3n}{4n^2+12n+8}\)

Lời giải:
Ta có: \(\frac{1}{k(k+1)(k+2)}=\frac{1}{2}.\frac{2}{k(k+1)(k+2)}=\frac{1}{2}.\frac{(k+2)-k}{k(k+1)(k+2)}\)

\(=\frac{1}{2}\left(\frac{k+2}{k(k+1)(k+2)}-\frac{k}{k(k+1)(k+2)}\right)=\frac{1}{2}\left(\frac{1}{k(k+1)}-\frac{1}{(k+1)(k+2)}\right)\)

Áp dụng vào bài toán:

\(\frac{1}{1.2.3}=\frac{1}{2}\left(\frac{1}{1.2}-\frac{1}{2.3}\right)\)

\(\frac{1}{2.3.4}=\frac{1}{2}\left(\frac{1}{2.3}-\frac{1}{3.4}\right)\)

\(\frac{1}{3.4.5}=\frac{1}{2}\left(\frac{1}{3.4}-\frac{1}{4.5}\right)\)

.......

\(\frac{1}{n(n+1)(n+2)}=\frac{1}{2}\left(\frac{1}{n(n+1)}-\frac{1}{(n+1)(n+2)}\right)\)

\(\Rightarrow B=\frac{1}{2}\left(\frac{1}{1.2}-\frac{1}{2.3}+\frac{1}{2.3}-\frac{1}{3.4}+\frac{1}{3.4}-\frac{1}{4.5}+...+\frac{1}{n(n+1)}-\frac{1}{(n+1)(n+2)}\right)\)

\(=\frac{1}{2}\left(\frac{1}{1.2}-\frac{1}{(n+1)(n+2)}\right)=\frac{1}{4}-\frac{1}{2(n+1)(n+2)}\)

\(B=\dfrac{1}{2}\left(\dfrac{2}{1\cdot2\cdot3}+\dfrac{2}{2\cdot3\cdot4}+...+\dfrac{2}{n\left(n+1\right)\left(n+2\right)}\right)\)

\(=\dfrac{1}{2}\left(\dfrac{1}{1\cdot2}-\dfrac{1}{2\cdot3}+\dfrac{1}{2\cdot3}-\dfrac{1}{3\cdot4}+...+\dfrac{1}{n\cdot\left(n+1\right)}-\dfrac{1}{\left(n+1\right)\left(n+2\right)}\right)\)

\(=\dfrac{1}{2}\left(\dfrac{1}{2}-\dfrac{1}{\left(n+1\right)\left(n+2\right)}\right)\)

\(=\dfrac{1}{2}\cdot\dfrac{n^2+3n+2-2}{2\left(n+1\right)\left(n+2\right)}=\dfrac{n\left(n+3\right)}{4\left(n+1\right)\left(n+2\right)}\)

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

a) Ta có

S = \(\dfrac{1}{1.2.3}+\dfrac{1}{2.3.4}+\dfrac{1}{3.4.5}+...+\dfrac{1}{n.\left(n+1\right).\left(n+2\right)}\)

2S = \(\dfrac{2}{1.2.3}+\dfrac{2}{2.3.4}+\dfrac{2}{3.4.5}+...+\dfrac{2}{n.\left(n+1\right).\left(n+2\right)}\)

2S = \(\dfrac{1}{1.2}-\dfrac{1}{2.3}+\dfrac{1}{2.3}-\dfrac{1}{3.4}+\dfrac{1}{3.4}-\dfrac{1}{4.5}+...+\dfrac{1}{n\left(n+1\right)}-\dfrac{1}{\left(n+1\right).\left(n+2\right)}\)2S = \(\dfrac{1}{1.2}-\dfrac{1}{\left(n+1\right).\left(n+2\right)}\)

S = \(\dfrac{1}{4}-\dfrac{1}{\left(n+1\right).\left(n+2\right):2}\)

b) A = \(1+\dfrac{1}{3}+\dfrac{1}{5}+\dfrac{1}{7}+...+\dfrac{1}{99}\)

A = \(2-\dfrac{1}{3}+\dfrac{1}{3}-\dfrac{1}{5}+\dfrac{1}{5}-\dfrac{1}{7}+...+\dfrac{1}{97}-\dfrac{1}{99}\)

A = \(2-\dfrac{1}{99}\)

A = \(\dfrac{197}{99}\)

c) Ta có

B = \(\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+...+\dfrac{1}{100}\)

B = \(1-\dfrac{1}{2}+\dfrac{1}{2}-\dfrac{1}{3}+\dfrac{1}{3}-\dfrac{1}{4}+...+\dfrac{1}{99}-\dfrac{1}{100}\)

B = \(1-\dfrac{1}{100}\)

B = \(\dfrac{99}{100}\)

d) Ta có

C = \(\dfrac{99}{1}+\dfrac{98}{2}+\dfrac{97}{3}+...+\dfrac{1}{99}\)

C = \(1+\left(1+\dfrac{98}{2}\right)+\left(1+\dfrac{97}{3}\right)+...+\left(1+\dfrac{1}{99}\right)\)

C = \(1+50+\dfrac{100}{3}+...+\dfrac{100}{99}\)

C = 51 + 100(\(\dfrac{1}{3}+\dfrac{1}{4}+\dfrac{1}{5}+...+\dfrac{1}{99}\))

Đặt D = \(\dfrac{1}{3}+\dfrac{1}{4}+\dfrac{1}{5}+...+\dfrac{1}{99}\)

D = \(\dfrac{1}{2}-\dfrac{1}{3}+\dfrac{1}{3}-\dfrac{1}{4}+\dfrac{1}{4}-\dfrac{1}{5}+...+\dfrac{1}{98}-\dfrac{1}{99}\)

D = \(\dfrac{1}{2}-\dfrac{1}{99}\)

D = \(\dfrac{97}{198}\)

=> C = 51 + 100.\(\dfrac{97}{198}\)

C = 51 + \(\dfrac{4850}{99}\)

C = \(\dfrac{9899}{99}\)

Đây là bài làm của mình sai thì nx nha

program bai1;

var n,i:longint;s:real;

begin

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

s:=0;

for i:=1 to n do

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

writeln('Tong la ',s);

readln

end.

của Trương Quang Dũng thiếu uses crt;

ko khai báo s.

có 2 dấu ngoặc liên tiếp nên chương trình sẽ bị lỗi

bài 1

BÀI 3

uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.