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.

`#3107`

`a)`

\(\dfrac{1}{1\cdot2}+\dfrac{1}{2\cdot3}+\dfrac{1}{3\cdot4}+...+\dfrac{1}{1999\cdot2000}\)

\(=1-\dfrac{1}{2}+\dfrac{1}{2}-\dfrac{1}{3}+...+\dfrac{1}{1999}-\dfrac{1}{2000}\)

\(=1-\dfrac{1}{2000}\)

\(=\dfrac{1999}{2000}\)

`b)`

\(\dfrac{1}{1\cdot4}+\dfrac{1}{4\cdot7}+\dfrac{1}{7\cdot10}+...+\dfrac{1}{100\cdot103}?\)

\(=\dfrac{1}{3}\cdot\left(\dfrac{3}{1\cdot4}+\dfrac{3}{4\cdot7}+\dfrac{3}{7\cdot10}+...+\dfrac{3}{100\cdot103}\right)\)

\(=\dfrac{1}{3}\cdot\left(1-\dfrac{1}{4}+\dfrac{1}{4}-\dfrac{1}{7}+...+\dfrac{1}{100}-\dfrac{1}{103}\right)\)

\(=\dfrac{1}{3}\cdot\left(1-\dfrac{1}{103}\right)\)

\(=\dfrac{1}{3}\cdot\dfrac{102}{103}\)

\(=\dfrac{34}{103}\)

`c)`

\(\dfrac{8}{9}-\dfrac{1}{72}-\dfrac{1}{56}-\dfrac{1}{42}-....-\dfrac{1}{6}-\dfrac{1}{2}\)

\(=\dfrac{8}{9}-\left(\dfrac{1}{2}+\dfrac{1}{6}+...+\dfrac{1}{42}+\dfrac{1}{56}+\dfrac{1}{72}\right)\)

\(=\dfrac{8}{9}-\left(\dfrac{1}{1\cdot2}+\dfrac{1}{2\cdot3}+...+\dfrac{1}{6\cdot7}+\dfrac{1}{7\cdot8}+\dfrac{1}{8\cdot9}\right)\)

\(=\dfrac{8}{9}-\left(1-\dfrac{1}{2}+\dfrac{1}{2}-\dfrac{1}{3}+...+\dfrac{1}{8}-\dfrac{1}{9}\right)\)

\(=\dfrac{8}{9}-\left(1-\dfrac{1}{9}\right)\)

\(=\dfrac{8}{9}-\dfrac{8}{9}\\ =0\)

b) Sửa đề:

 \(\dfrac{1}{1.4}+\dfrac{1}{4.7}+\dfrac{1}{7.10}+...+\dfrac{1}{100.103}\)

\(=\dfrac{1}{3}.\left(1-\dfrac{1}{4}+\dfrac{1}{4}-\dfrac{1}{7}+\dfrac{1}{7}-\dfrac{1}{10}+...+\dfrac{1}{100}-\dfrac{1}{103}\right)\)

\(=\dfrac{1}{3}.\left(1-\dfrac{1}{103}\right)\)

\(=\dfrac{1}{3}.\left(\dfrac{103}{103}-\dfrac{1}{103}\right)\)

\(=\dfrac{1}{3}.\dfrac{102}{103}\)

\(=\dfrac{34}{103}\)

c) \(\dfrac{8}{9}-\dfrac{1}{72}-\dfrac{1}{56}-\dfrac{1}{42}-...-\dfrac{1}{6}-\dfrac{1}{2}\)

\(=\dfrac{8}{9}-\left(\dfrac{1}{2}+\dfrac{1}{6}+...+\dfrac{1}{42}+\dfrac{1}{56}+\dfrac{1}{72}\right)\)

\(=\dfrac{8}{9}-\left(\dfrac{1}{1.2}+\dfrac{1}{2.3}+...+\dfrac{1}{6.7}+\dfrac{1}{7.8}+\dfrac{1}{8.9}\right)\)

\(=\dfrac{8}{9}-\left(1-\dfrac{1}{2}+\dfrac{1}{2}-\dfrac{1}{3}+...+\dfrac{1}{6}-\dfrac{1}{7}+\dfrac{1}{7}-\dfrac{1}{8}+\dfrac{1}{8}-\dfrac{1}{9}\right)\)

\(=\dfrac{8}{9}-\left(1-\dfrac{1}{9}\right)\)

\(=\dfrac{8}{9}-\left(\dfrac{9}{9}-\dfrac{1}{9}\right)\)

\(=\dfrac{8}{9}-\dfrac{8}{9}\)

\(=0\)

\(#WendyDang\)

A=1-1/2+1/2-1/3+1/3-1/4+...+1/99-1/100

A=1-1/100                            A=99/100                                                                                    B= (1/5.6+1/6/7+...+1/101.102).3                         B=(1/5-1/6+1/6-1/7+...+1/101-1/102).3        B=(1/5-1/102).3                                                 B=97/170                                                            

1) Tính

a) Ta có: \(A=\dfrac{1}{1\cdot2}+\dfrac{1}{2\cdot3}+\dfrac{1}{3\cdot4}+...+\dfrac{1}{99\cdot100}\)

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

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

`A=1/(1.2)+1/(2.3)+1/(3.4)+....+1/(49.50)`

`=1-1/2+1/2-1/3+1/3-1/4+...+1/49-1/50`

`=1-1/50=49/50`

Giải:

\(A=\dfrac{1}{1.2}+\dfrac{1}{2.3}+\dfrac{1}{3.4}+...+\dfrac{1}{49.50}\) 

\(A=1-\dfrac{1}{2}+\dfrac{1}{2}-\dfrac{1}{3}+\dfrac{1}{3}-\dfrac{1}{4}+...+\dfrac{1}{49}-\dfrac{1}{50}\) 

\(A=1-\dfrac{1}{50}\) 

\(A=\dfrac{49}{50}\)

+A = \(\dfrac{1}{1.2}\)+\(\dfrac{1}{2.3}\)+\(\dfrac{1}{3.4}\)+...+\(\dfrac{1}{49.50}\)

A = 1 - \(\dfrac{1}{2}\)+\(\dfrac{1}{2}\)-\(\dfrac{1}{3}\)+\(\dfrac{1}{3}\)-\(\dfrac{1}{4}\)+...+\(\dfrac{1}{49}\)-\(\dfrac{1}{50}\)

A = 1 - \(\dfrac{1}{50}\)

A = \(\dfrac{50}{50}\) - \(\dfrac{1}{50}\)

A = \(\dfrac{49}{50}\)

For..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

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

s:=0;

for i:=1 to n do s:=s+i*(i+1);

write('S=',S);

readln

end.

while..do

Program HOC24;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

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

i:=0; s:=0;

while i<n do

begin

i:=i+1;

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

end;

write('S=',S);

readln

end.

progrỉnam 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+1);

writeln('Tong la ',s);

readln

end.

1) 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.

program cau3;

var i:integer;

begin

write('cac uoc cua 102 la:');

for i:=1 to 102 do if 102 mod i = 0 then write(' ',i);

readln

end.

program c2;

var T,a,x : integer ;

Begin

write('nhap gia tri cua a:'); readln(a);

write('nhap gia tri cua x'); readln(x);

T:=a+sqrt(x-a)/sqrt(a-x) ;

write('Ket qua T=',T);

readln

end.

.

999/1000(hình như v)

Áp dụng công thức \(\dfrac{1}{k\left(k+1\right)}=\dfrac{1}{k}-\dfrac{1}{k+1}\), ta có:

\(A=\left(1-\dfrac{1}{2}\right)+\left(\dfrac{1}{2}-\dfrac{1}{3}\right)+\left(\dfrac{1}{3}-\dfrac{1}{4}\right)+...+\left(\dfrac{1}{999}-\dfrac{1}{1000}\right)=1-\dfrac{1}{1000}=\dfrac{999}{1000}\)

\(A=1-\dfrac{1}{2}+\dfrac{1}{2}-\dfrac{1}{3}+\dfrac{1}{3}-\dfrac{1}{4}+...+\dfrac{1}{999}-\dfrac{1}{1000}\)

\(A=1-\dfrac{1}{1000}\)

\(A=\dfrac{999}{1000}\)

giúp em với

Câu 3:

program cauba;

int chieudai, chieurong, chuvi, dientich :real;

begin

write('Chieu dai la: '); Readln(chieudai);

write('Chieu rong la: '); Readln(chieurong);

chuvi = (chieudai + chieu rong)*2;

dientich= chieudai*chieurong;

writeln('Chu vi la: ',chuvi);

writeln('Dien tich la: ',dientich);

end.

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

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

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.