\(\Leftrightarrow\left[x\left(x+1\right)\right]\left[\left(x-1\right)\left(x+2\right)\right]=24\)

\(\Leftrightarrow\left(x^2+x\right)\left(x^2+x-2\right)-24=0\)

Đặt t=\(x^2+x-1\)

\(\Rightarrow x^2+x=t+1\)

\(\Rightarrow x^2+x-2=t-1\)

\(\Leftrightarrow\left(t+1\right)\left(t-1\right)-24=0\)

\(\Leftrightarrow t^2-1-24=0\)

\(\Leftrightarrow\left(t-5\right)\left(t+5\right)=0\)

\(\Rightarrow\left(x^2+x-1-5\right)\left(x^2+x-1+5\right)=0\)\(\Leftrightarrow\left(x^2+x-6\right)\left(x^2+x+4\right)=0\)

Vì \(x^2+x+4=x^2+2.\frac{1}{2}x+\frac{1}{4}+4-\frac{1}{4}\)

\(=\left(x+\frac{1}{2}\right)^2+\frac{15}{4}>0\)

nên \(x^2+x+4\ne0\)

Vậy nên \(x^2+x-6=0\)

\(\Leftrightarrow x^2-2x+3x-6=0\)

\(\Leftrightarrow x\left(x-2\right)+3\left(x-2\right)=0\)

\(\Leftrightarrow\left(x-2\right)\left(x+3\right)=0\)

\(\Rightarrow x=2\) hoặc \(x=-3\)

Vậy tập nghiệm của phương trình là S=\(\left\{2;-3\right\}\)

Chi can ap dung ding li Talet la duoc ( de ma ban)

CÂU 1:  CHỌN b trc. b=5 hoặc b=0

với b=5 => a =4

với b=0 => a=0 hoặc a=9

Var n: integer;
s: longint;
BEGIN
repeat
write( 'Nhap n: '); readln(n);
until (n>=0);
s:=0;
for i:=1 to n do
s:=s+i;
write('Tong cac so tu 1 toi ', n,' =', s);
readln
END.

Program hoan_vi;

uses crt;

var a,b,tg:integer;

begin

clrscr;

write('nhap a: ');readln(a);

write('nhap b: '); readln(b);

if a>b then

begin

tg:=a;

a:=b;

b:=tg;

end;

writeln(a,'',b);

readln

end.

Thuật toán:

B1: Nhập a,b

B2:Nếu a< > 0 thì x=-a/b và kết thúc ngược lại thì đi tiếp

B3:Nếu b=0 thì phương trình vô số ngiệm ngược lại thì chương vô nghiệm và kết thúc thuật toán.

Viết chương trình:

Program PT_bac_nhat;
Var
a,b:Integer;
x:Real;
Begin
Writeln('GIAI PHUONG TRINH BAC NHAT');
Writeln(' aX + b = 0');
Write('-Nhap he so a= ');
Readln(a);
Write('-Nhap he so b= ');
Readln(b);
If a=0 Then
If b=0 Then
Writeln('+Phuong trinh vo dinh')
Else
Writeln('+Phuong trinh vo nghiem')
Else
Begin
x:=-b/a;
Writeln('+Nghiem cua phuong trinh X= ',x:0:6);
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.

Là các tham chiếu đến các phần tử

uses crt;

var i,n,dem:integer;

begin

clrscr;

write('nhap so nguyen duong n ');readln(n);

dem:=0;

for i:=1 to n do if n mod i = 0 then dem:=dem+1;

if (n<2) or (dem< > 2) then writeln('n, khong phai la so nguyen to')

else if dem=2 then write(n,'la so nguyen to');

readln

end.

Gọi số cần tìm là ab.

Theo bài ra ta có: 9ab=ab.13

=>900+ab=ab.13

=>900=ab.13-ab

=>900=ab.12

=>ab=900:12

=>ab=75

Vậy số cân tìm là 75.

Program Tim_uoc;

uses crt;

var i,n:integer;

begin

clrscr;

Write(' Nhap so n = '); readln(n);

For i:=1 to n do if n mod i = 0 then write ( i:3 , ' , ' );

readln

end.