Bài 9. Làm việc với dãy số

Laizie

Cho 1 xâu S đã được nén gồm ký tự số và chữ cái, Em hãy VCT giải nén xâu S.

Ví dụ: S='3ax2b5c'

Giải thích: Xâu S có ba ký tự 'ax', hai ký tự 'b', năm ký tự 'c'.

Kết quả giải nén: S='axaxaxbbccccc'

Pascal ạ _ Em cảm ơn_ Mảng ạ

Nguyễn Lê Phước Thịnh
6 tháng 10 2020 lúc 21:18

Uses crt;
Var St,St1,x:string;
i,j,k,l:longint;
Begin
readln(St);
For i:=1 to length(St) do
If (St[i] in ['a'..'z']) then If not (St[i-1] in ['0'..'9']) then Insert('1',St,i);
For i:=1 to length(St) do
Begin
If St[i] in ['0'..'9'] then
For j:=i+1 to length(St) do
If St[j] in ['a'..'z'] then break;
x:=copy(St,i,j-i);
Val(x,k);
For l:=1 to k do
St1:=St1+St[j];
end;
Write(St1);
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Phạm Như Hiếu
Xem chi tiết
Trần Huy
Xem chi tiết
Đặng Nguyễn Hoài Băng
Xem chi tiết
lê anh khôi
Xem chi tiết
giao nguyễn
Xem chi tiết
Hải Trần
Xem chi tiết
Song Eun Hye
Xem chi tiết
JinJin Chobi
Xem chi tiết
Ly Minh
Xem chi tiết