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
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
By Peyton
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.