thôi chịu huhu

Câu 1: 

const fi='dulieu.dat'

fo='thaythe.out'

var f1,f2:text;

a:array[1..100]of string;

n,d,i,vt:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

readln(f1,a[n]);

end;

for i:=1 to n do 

  begin

d:=length(a[i]);

vt:=pos('anh',a[i]);

while vt<>0 do 

  begin

delete(a[i],vt,3);

insert('em',a[i],vt);

vt:=pos('anh',a[i]);

end;

end;

for i:=1 to n do 

  writeln(f2,a[i]);

close(f1);

close(f2);

end.

Câu 2: 

uses crt;

const fi='mang.inp'

fo='sapxep.out'

var f1,f2:text;

a:array[1..100]of integer;

i,n,tam,j:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

assign(f2,fo); rewrite(f2);

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  write(f1,a[i]:4);

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(f2,a[i]:4);

close(f1);

close(f2);

end.

_{B D C C B A B C}

1 ko có đáp án đúng

2A

3C

4B

5B

6C

7C

8D

13D

14A

15B

16B

17C

18D

19A

20B

21D

Bài 1: 

Vì (d)//y=-2x+1 nên a=-2

Vậy: y=-2x+b

Thay x=1 và y=2 vào (d),ta được:

b-2=2

hay b=4

Câu 5:

\(\dfrac{x}{y}=a\Rightarrow\dfrac{x}{a}=\dfrac{y}{1}=\dfrac{x-y}{a-1}=\dfrac{x+y}{a+1}\)

\(\Rightarrow\dfrac{x+y}{x-y}=\dfrac{a+1}{a-1}\)

Câu 6:

\(9x=5y\Rightarrow\dfrac{x}{5}=\dfrac{y}{9}\)

\(\Rightarrow\dfrac{x}{5}=\dfrac{y}{9}=\dfrac{3x}{15}=\dfrac{2y}{18}=\dfrac{3x-2y}{15-18}=\dfrac{12}{-3}=-4\)

\(\Rightarrow\left\{{}\begin{matrix}x=\left(-4\right).5=-20\\y=\left(-4\right).9=-36\end{matrix}\right.\)

Câu 7:

\(\dfrac{x}{-5}=\dfrac{y}{7}=\dfrac{x+y}{-5+7}=\dfrac{-10}{2}=-5\)

\(\Rightarrow\left\{{}\begin{matrix}x=\left(-5\right).\left(-5\right)=25\\y=\left(-5\right).7=-35\end{matrix}\right.\)