kenz masterツ
Hỏi từ APP VIETJACK
Vct nhập vào xâu kí tự có nhiều kí tự trống đưa ra mỗi chữ cách nhau 1 kí tự trống
Quảng cáo
1 câu trả lời 172
2 năm trước
uses crt;
var s:string;
i,n:integer;
begin
write('Nhap xau: '); readln(s);
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
repeat
n:=pos(' ',s);
delete(s,n,1);
until n=0;
write('ket qua: ',s);
readln;
end.
var s:string;
i,n:integer;
begin
write('Nhap xau: '); readln(s);
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
repeat
n:=pos(' ',s);
delete(s,n,1);
until n=0;
write('ket qua: ',s);
readln;
end.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86027
Gửi báo cáo thành công!
