\(\overline{a,bc}+\overline{ab,c}=21,12\)

\(\overline{abc}=\overline{6abc}:17\)

Ta có:

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

\(x\left(x-2\right)^2-6\left(x-2\right)^3=0\)

\(\left(x-2\right)^2\left[x-6\left(x-2\right)\right]=0\)

\(\left(x-2\right)^2\left[x-6x+2\right]=0\)

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

\(\left[{}\begin{matrix}\left(x-2\right)^2=0\\-5x+2=0\end{matrix}\right.\)\(\Leftrightarrow\left[{}\begin{matrix}x-2=0\\-5x=-2\end{matrix}\right.\Leftrightarrow\left[{}\begin{matrix}x=2\\5x=2\end{matrix}\right.\Leftrightarrow}}\left[{}\begin{matrix}x=2\\x=\dfrac{2}{5}\end{matrix}\right.\)

Vậy:\(x\in\left\{2;\dfrac{2}{5}\right\}\)

2b:

- đầu tiên nhập một số n bất kỳ

- sau đó chúng ta cho for chạy từ 1 tới số nguyên vừa nhập

- nếu số n vừa nhập chia hết cho số i trong for thì viết số i đó ra màn hình

2c:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if n mod i=0 then write(i:4);

readln;

end.

program thinh;
uses crt;
var a,i:integer;
begin
clrscr;
write('nhap a:'); readln(a);
writeln('cac uoc cua ',a,' la: ');
for i:=1 to a do
if a mod i=0 then write(i:4);

readln;

end.

1/

program thinh;
uses crt;
var a:array[1..100]of integer;
i,n,x,dem,kt:integer;
{-------------------------------------------------------------}
procedure nhap(var b:integer);
begin
write('nhap n='); readln(b);
end;
{-------------------------------------------------------------}
procedure nguyento;
begin
if n=1 then a[1]:=2
else begin
a[1]:=2;
x:=1;
dem:=1;
repeat
x:=x+2;
kt:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=1;
if kt=0 then begin
dem:=dem+1;
a[dem]:=x;
end;
until dem=n;
end;
writeln(n,' so nguyen to dau tien la: ');
for i:=1 to n do
write(a[i],' ');
end;
{----------------------------------------------}
begin
clrscr;
nhap(n);
nguyento;
readln;
end.

uses crt;
var a:array[1..100]of integer;
i,n,x,dem,kt:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
if n<=0 then writeln('ban da nhap sai , yeu cau ban nhap lai');
until n>0;
if n=1 then a[1]:=2
else
begin
a[1]:=2;
x:=1;
dem:=1;
repeat
x:=x+2;
kt:=0;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=1;
if kt=0 then begin
dem:=dem+1;
a[dem]:=x;
end;
until dem=n;
end;
writeln('so nguyen to thu ',n,' la: ',x);
readln;
end.