Tin học Nhập vào 1 xâu và xóa dấu cách trong xâu.giúp em với ạ em cảm ơn.viết chương trình Pascal ạ 22/07/2021 By Lydia Nhập vào 1 xâu và xóa dấu cách trong xâu.giúp em với ạ em cảm ơn.viết chương trình Pascal ạ
program xoa; uses crt; var s:string; begin clrscr; write(‘Nhap xau: ‘); readln(s); while pos(‘ ‘,s)<>0 do delete(s,pos(‘ ‘,s),1); write(‘Xau sau khi xoa dau cach la: ‘,s); readln; end. Trả lời
uses crt;var s:string; i:longint;beginclrscr; write(‘Nhap xau: ‘); readln(s); while s[i]=#32 do delete(s,i,1); while s[length(s)]=#32 do delete(s,length(s),1); while pos(#32,s)<>0 do delete(s,pos(#32,s),1); writeln(‘Xau sau khi sua chua: ‘,s);readlnend. ————- #32: tượng trưng cho ký hiệu khoảng trắng * Bạn có thể thay #32 thành ‘ ‘ Trả lời