Mọi người giúp mình với!!!1 Viết chương trình nhập vào một xâu tu ban phím, xóa kí tự trắng có trong xâu ??/
2 câu trả lời
var a: string;
i: byte;
Begin
write('Nhap xau: '); readln(a);
For i:=1 to length(a) do
while a[i]=' ' do delete(a,i,1);
write('Xau sau khi xoa khoang trang la: ',a);
readln;
End.
uses crt;
var st : string;
i : integer;
begin clrscr;
write('Nhap xau ki tu :'); readln(st);
for i:=1 to length(st) do while st[i]=#32 do delete(st,i,1);
write(st);
readln
end.
Câu hỏi trong lớp
Xem thêm
