Viết ct nén xâu sau:
Input | Output |
AACCBBB | A2C2B3 |
ABABUUC | (AB)2U2C |
giúp mình làm bài bằng pascal nha bài này hơi khó mình cảm ơn
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
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.
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
uses crt;
var st,k,t:string;
d,dem,i:integer;
begin
clrscr;
readln(st);
d:=length(st);
k='';
dem=1;
for i:=2 to d do
begin
if st[i]=st[i-1] then inc(dem);
if st[i]<>st[i-1] then
btegin
str(dem,t);
if dem>1 then k:=k+t+st[i-1];
else k:=k+st[i-1];
dem=1;
end;
if (i=d) then
begin
str(dem,t);
if dem>1 then k:=k+t+st[i];
else k:=k+st[i];
end;
end;
write(k);
readln;
end.
ABABUUC nén sai bạn ơi