Nhập vào một xâu từ bàn phím và đưa ra màn hình xâu thu được từ nó bởi việc loại bỏ các dấu cách nếu có.

0 bình luận về “Nhập vào một xâu từ bàn phím và đưa ra màn hình xâu thu được từ nó bởi việc loại bỏ các dấu cách nếu có.”

1. program LN;
   uses crt;
   var s:string;
         i:integer;
   begin
   clrscr;
   writeln(‘Nhap vao 1 chuoi bat ki: ‘);
   readln(s);
   for i:= 1 to length(s) do
         if s[i] = ‘ ‘ then delete(s,pos(‘ ‘,s),1);
   writeln(s);
   readln;
   end.

   Bình luận

2. program helpp;
   uses crt;
   var s:string;
         i:integer;
   begin
   clrscr;
   writeln(‘Nhap vao chuoi S: ‘);
   readln(s);
   for i:= 1 to length(s) do
         if s[i] = #32 then delete(s,i,1);
   writeln(s);
   readln;
   end.

   Bình luận