Nhập vào từ bàn phím xâu S bất kì.Đếm xem có bao nhiêu dấu cách trong xâu S. Xóa tất cả dấu cách có trong xâu S

0 bình luận về “Nhập vào từ bàn phím xâu S bất kì.Đếm xem có bao nhiêu dấu cách trong xâu S. Xóa tất cả dấu cách có trong xâu S”

1. Program FNG;
   Uses crt;
   Var S: String;
       i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap S: ‘); Readln(S);
           d:=0;
           For i:=1 to length(S) do
                   If S[i]=#32 then
                           inc(d);
           Writeln(‘Co ‘,d,’ dau cach’);
           For i:=1 to length(S) do
                   While S[i]=#32 do Delete(S,i,1);
           Write(S);
           Readln
   End.

   Bình luận

2. program Tin_hoc;

   uses ccrt;

   var i,k:integer;

   s1,s2:string;

   begin

   clrscr;

   writeln(‘Nhap xau S:);readln(s1);

   k:=0;s2:=”;

   for i: =1 to length (s1) do if ord(s1[i]) = 32 then  inc(k) else s2:=s2+s1[i];

   writeln(‘Xau S da bi xoa dau cach:’,s2);

   readln;

   end.

   Bình luận