Program GIAINEN;
Var s,st: string;
j,i,k,l: byte;
begin
readln(s);
while length(s)<>0 do
begin
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then st:=st+s[i]
else if s[i] in ['1'..'9'] then break;
for i:=1 to length(s) do
if s[i] in ['2'..'9'] then
begin
val(s[i],k);
l:=i;
break;
end;
for j:=1 to k do write(st);
delete(s,1,l);
st:=''
end;
readln
end.

program  Nenxau;

var s: string;
        i, count: integer;
        c: char;

begin
  readln(s);
  count := 1;
  c := s[1];
  for i := 2 to length(s) do
    begin
      if s[i] = c then
        inc(count)
      else
        begin
          write(count);
          write(c);
          count := 1;
          c := s[i];
        end;
    end;
  write(count);
  write(c);
end.

bài 2
1)
/2x-7/+\(\dfrac{1}{2}=1\dfrac{1}{2}\)
/2x-7/+\(\dfrac{1}{2}=\dfrac{3}{2}\)
/2x-7/=1
=>   2x-7=1   hoặc   -2x+7 =1
       2x=8       hoặc   -2x=-6
       x=4         hoặc     x=3

Bài 1: 

1: Ta có: \(A=\left(-1\right)^3\cdot\left(-\dfrac{7}{8}\right)^3\cdot\left(-\dfrac{2}{7}\right)^2\cdot\left(-7\right)\cdot\left(-\dfrac{1}{14}\right)\)

\(=\dfrac{7^3}{8^3}\cdot\dfrac{4}{49}\cdot\dfrac{1}{2}\)

\(=\dfrac{343}{512}\cdot\dfrac{2}{49}\)

\(=\dfrac{7}{256}\)

Lời giải:

$4+(y-1)^2\geq 4\Rightarrow \frac{8}{4+(y-1)^2}\leq 2$ 

Mặt khác, áp dụng BĐT $|a|+|b|\geq |a+b|$ ta có:
$|x-1|+|x-3|=|x-1|+|3-x|\geq |x-1+3-x|=2$

$\Rightarrow |x-1|+|x-2|+|x-3|\geq 2+|x-2|\geq 2$
Vậy $\frac{8}{4+(y-1)^2}\leq 2\leq |x-1|+|x-2|+|x-3|$
Dấu "=" xảy ra khi:

\(\left\{\begin{matrix} (y-1)^2=0\\ (x-1)(3-x)\geq 0\\ x-2=0\end{matrix}\right.\Leftrightarrow y=1; x=2\)

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

writeln('Cac ki tu so co trong xau S:'); 

dem:=0;

for i:=1 to d do 

  if s[i] in ['0'..'9'] then

begin

write(s[i]:4);

inc(dem);

end;

writeln;

writeln('So ki tu chu so co trong xau S: ',dem);

for i:=1 to d do 

  if s[i] in ['0'..'9'] then s[i]:='A'

writeln('Xau sau khi doi la: ',s);

readln;

end.

Bài đâu em

  Vườn nhà em trồng rất nhiều cây ăn quả. Trong số những loại cây đó, cây dừa đã gắn bó và chứng kiến nhiều kỷ niệm tuổi thơ của em nhất.

  Nghe bố em kể lại cây dừa này được trổng từ khá lâu rồi. Từ xa nhìn lại, cây dừa cao, to như cột chống trời. Có lẽ các loài cây trong vườn coi cây dừa như một vị thủ lĩnh. Thân cây được bao bọc bên ngoài bằng một lớp vỏ cứng, sần sùi màu nâu đen. Dáng cây đứng thẳng như chiếc cột điện cao chót vót. Rễ dừa bò lên mặt đất như những chú rắn nhỏ, hiền lành. Vào những buổi trưa hè, em thường ngồi dưới đây để hóng mát. Đứng dưới gốc nhìn lên, em thấy những tàu dừa màu xanh sẫm như chiếc lược chải tóc cho mây xanh. Chen trong các tàu lá dừa là những bông hoa li ti. Hoa dừa không mang sắc vàng đậm như hoa điệp, hoa hướng dương mà nó có màu vàng nhạt thanh thoát và duyên dáng, trông thật đáng yêu. Khi những bông hoa dừa rụng xuống, em thường chọn những cánh to, dày để làm dây chuyền… khi thì gắn lên đầu, khi thì thắt quai áo. Những bông hoa ấy lìa cành đã để lại trên cây những quả dừa bé bỏng màu xanh non. Những trái dừa cứ lớn dần, lớn dần rồi lớn hẳn. Từng trái dừa to, kết thành từng chùm lúc lỉu trên cây như đàn lợn con.

  Mùa hè đến cũng là lúc dừa đã già. Mẹ thường hái xuống để bổ lấy nước cho cả nhà uống. Dưới cái nắng chói chang của mùa hè, được uống một cốc nước dừa thì thật là thích. Từng giọt nước dừa trong vắt, hương thơm man mát và ngọt dịu.

  Em rất yêu quý cây dừa nhà em.

                                                                          Chúc bạn học tốt        

Số bài tập của 2 bạn còn lại đúng bằng
số bài tập thầy giáo ra cho mỗi bạn, vậy số bài tập của 2 bạn còn lại đúng bằng
tổng số bài tập thầy ra cho 2 bạn. (0,75 đ)
Vậy
số bài tập thầy ra cho 2 bạn đúng bằng :

22 + 20 = 42 (bài tập)

Tổng số bài tập thầy ra cho 2 bạn là :

42 x \(\frac{8}{7}\) =   48 ( bài tập )

Số bài tập thầy ra cho mỗi bạn là :

48 : 2 = 24 ( bài tập )

Đáp số : 24 bài tập