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 ??/

0 bình luận về “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 ??/”

1. 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.

   Bình luận

2. 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.

   Bình luận