Viếy hàm xóa cách để tạo 1 xâu thu được từ xâu S sau khi xóa toàn bộ dấu cách trong xâu S nếu có
Cần gấp ạ!!!!
0 bình luận về “Viếy hàm xóa cách để tạo 1 xâu thu được từ xâu S sau khi xóa toàn bộ dấu cách trong xâu S nếu có Cần gấp ạ!!!!”
uses crt; var i,k:byte; a,b:string; begin write(‘Nhap xau: ‘); readln(a); k:=length(a); b:=”; for i:=1 to k do if a[i]<>’ ‘ then b:=b+a[i]; write(‘Ket qua: ‘,b); readln end.
uses crt;
var i,k:byte;
a,b:string;
begin
write(‘Nhap xau: ‘); readln(a);
k:=length(a); b:=”;
for i:=1 to k do
if a[i]<>’ ‘ then b:=b+a[i];
write(‘Ket qua: ‘,b);
readln
end.