Viết ct giải nén xâu:
| Input | Output |
| (AB)2(QXA)3 | ABABQXAQXAQXA |
pascal nha! mình cảm ơn
K
Khách
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.
Những câu hỏi liên quan
9 tháng 8 2023
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.
1 tháng 7 2023
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.
NK
0
14 tháng 11 2021
uses crt;
var a:int64;
begin
clrscr;
readln(a);
writeln(a*4);
readln;
end.
NL
1
10 tháng 10 2021
phân số chỉ số m đường còn lại sau khi làm xong tuần lễ đầu là :
1−14=341−14=34 ( quãng đường )
phân số chỉ số m đường tuần lễ thứ 2 làm là :
45⋅34=3545⋅34=35 ( quãng đường )
phân số chỉ số m đường sửa vào tuần lễ thứ 3 là :
1−14−35=3201−14−35=320 ( quãng đường )
Quãng đường AB dài số m là :
1500 : 320320 = 10 000 ( m)
đổi 10 000 m = 10 km
NH
1
17 tháng 1 2022
Em tham khảo:
1. Tony đang chơi với một con dao bén (sắc).
He may cut himself.
Cậu ấy có thể bị đứt tay
2. Linda đang chơi với một con mèo của hàng xóm.
It may scratch her face. Nó có thể cào mặt của cô ấy.
3. Quân đang đi xe đạp quá nhanh.
He may fall of his bike. Cậu ấy có thể té/ngã xe.
GH
29 tháng 6 2023
```pascal
program TimSoNguyenTrongSoN;
uses crt;
procedure TimSoNguyenTrongSoN(n: integer);
var
n_str: string;
so_nguyen_xuat_hien: array of integer;
temp: string;
i, j, so: integer;
begin
n_str := IntToStr(n);
SetLength(so_nguyen_xuat_hien, 0);
for i := 1 to Length(n_str) do
begin
temp := '';
for j := i to Length(n_str) do
begin
temp := temp + n_str[j];
if TryStrToInt(temp, so) then
begin
SetLength(so_nguyen_xuat_hien, Length(so_nguyen_xuat_hien) + 1);
so_nguyen_xuat_hien[Length(so_nguyen_xuat_hien) - 1] := so;
end;
end;
end;
writeln('Cac so nguyen xuat hien trong so ', n, ' la:');
for i := 0 to Length(so_nguyen_xuat_hien) - 1 do
begin
writeln(so_nguyen_xuat_hien[i]);
end;
end;
var
n: integer;
begin
clrscr;
write('Nhap vao so n: ');
readln(n);
TimSoNguyenTrongSoN(n);
readln;
end.
```
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.