Câu trả lời:
readln(s); d:=1;
for i:=1 to length(s) do
if s[i]=s[i+1] then
d:=d+1 else
begin
write(d,s[i]);
d:=1;
end;
end.
Học tại trường
Chưa có thông tin
Đến từ
Chưa có thông tin , Chưa có thông tin
Số lượng câu hỏi
1
Số lượng câu trả lời
4
Điểm GP
0
Điểm SP
0