viết chương trình nhập vào 1 xâu, sau đó loại bỏ cách kí tự khoảng trắng rồi in ra màn hình

0 bình luận về “viết chương trình nhập vào 1 xâu, sau đó loại bỏ cách kí tự khoảng trắng rồi in ra màn hình”

1. Program oken;

   uses crt;

   var xau : string;

          i : longint;

   begin

     clrscr;

     write (‘Nhap vao 1 xau: ‘); readln (xau);

     for i:=1 to length(xau) do

            if (xau[i] <> ‘ ‘) and (xau[i + 1] = ‘ ‘) then delete(xau, i+1, 1);

     writeln(xau);

     readln;

   end.

   Bình luận

2. program baitap;

   uses crt;

   var S : string;

          i : byte;

   begin

     clrscr;

     write (‘Nhap xau :’);

     readln ( S );

     for i := 1 to length( S ) do

            if ( S[i] <> ‘ ‘ ) and ( S[i + 1] = ‘ ‘ ) then delete ( S, i+1, 1 );

     write ( S );

     readln;

   end.

   Bình luận