nhập một sâu kí tự chuẩn hóa xâu đó rồi in kết quả lên màn hình xâu chuẩn hóa là sâu không có kí tự dư thừa ở đầu cuối ,giữa hai kí tự không quá một kí tự trắng
2 câu trả lời
program chuanhoa;
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau: '); readln(st);
while st[1]=#32 do delete(st,1,1);
whle st[length(st)]=#32 do delete(st,length(st),1);
while pos(#32#32,st)<>0 do delete(st,pos(#32#32,st),1);
write('Xau sau khi chuan hoa la: ',st);
readln
end.
uses crt;
var d:text; s:string; i:longint;
begin
clrscr;
write('S=');readln(s);
while (s[1]=' ') do delete(s,1,1);
while (s[length(s)]=' ') do delete(s,length(s),1);
for i:=1 to length(s) do while(s[i]=' ')and(s[i+1]=' ')do delete(s,i,1);
writeln(s);
readln;
end.
