a) \(\left(12-12\dfrac{1}{3}\right):x+\dfrac{1}{6}=-\dfrac{2}{3}\)

\(-\dfrac{1}{3}x=-\dfrac{2}{3}-\dfrac{1}{6}\)

\(-\dfrac{1}{3}x=-\dfrac{5}{6}\)

\(x=-\dfrac{5}{6}:\left(-\dfrac{1}{3}\right)\)

\(x=\dfrac{5}{2}\)

b) \(\dfrac{4}{x}=\dfrac{x}{16}\)

\(x^2=4.16\)

\(x^2=64\)

\(\Rightarrow x=8;x=-8\)

a) \(\dfrac{2}{5}+\dfrac{3}{4}-\dfrac{4}{7}\)

\(=\dfrac{56}{140}+\dfrac{105}{140}-\dfrac{80}{140}\)

\(=\dfrac{56+105-80}{140}\)

\(=\dfrac{81}{140}\)

b) \(\dfrac{7}{9}:\dfrac{2}{3}\times\dfrac{5}{4}\)

\(=\dfrac{7}{9}\times\dfrac{3}{2}\times\dfrac{5}{4}\)

\(=\dfrac{7\times3\times5}{9\times2\times4}\)

\(=\dfrac{35}{24}\)

c) \(\dfrac{4}{5}\times\left(\dfrac{7}{10}-\dfrac{1}{2}\right)\)

\(=\dfrac{4}{5}\times\left(\dfrac{7}{10}-\dfrac{5}{10}\right)\)

\(=\dfrac{4}{5}\times\dfrac{1}{5}\)

\(=\dfrac{4}{25}\)

\(3xy^2.\dfrac{1}{2}x^2y.\left(-2x^2y^2\right)\)

\(=\left[3.\dfrac{1}{2}.\left(-2\right)\right].\left(x.x^2.x^2\right).\left(y^2.y.y^2\right)\)

\(=-3x^5y^5\)

Var n,i,so:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(so);

If so mod 2 = 0 then writeln(so);

End;

Readln;

End.

Var m1,m2,m3,tb:real;

Begin

Write('Nhap diem mon 1 = ');readln(m1);

Write('Nhap diem mon 2 = ');readln(m2);

Write('Nhap diem mon 3 = ');readln(m3);

tb:=(m1+m2+m3)/3;

If (tb>=5) and (m1>=4) and (m2>=4) and (m3>=4) then write('Ket qua: Dau')

Else write('Ket qua: Rot');

Readln;

End.

Var s1,s2,i,j:integer;

Begin

s1:=1;

s2:=0;

i:=2;

j:=4;

While i<=50 do

Begin

s1:=s1+i;

i:=i+2;

End;

While j<=20 do

Begin

s2:=s2+j;

j:=j+4;

End;

s2:=s2+32;

Writeln('Tong day N = ',s1);

Writeln('Tong day M = ',s2);

Readln;

End.

Var a:array[1..20] of integer;

max,min:integer;

tbc:real;

Begin

For i:=1 to 20 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Max:=a[1];

Min:=a[1];

For i:=2 to 20 do

Begin

If a[i] > max then max:=a[i];

If a[i] < min then min:=a[i];

End;

tbc:=(max+min)/2;

Writeln('So lon nhat la ',max);

Writeln('So nho nhat la ',min);

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

Var a:array[1..20] of integer;

max,min:integer;

tbc:real;

Begin

For i:=1 to 20 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Max:=a[1];

Min:=a[1];

For i:=2 to 20 do

Begin

If a[i] > max then max:=a[i];

If a[i] < min then min:=a[i];

End;

tbc:=(max+min)/2;

Writeln('So lon nhat la ',max);

Writeln('So nho nhat la ',min);

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

A. 1

End of slide