nhập từ bàn phím xâu s1 thay thế tất cả các kí tự số bằng em giúp em với ạ em cảm ơn

0 bình luận về “nhập từ bàn phím xâu s1 thay thế tất cả các kí tự số bằng em giúp em với ạ em cảm ơn”

1. program thay_the;

   uses crt;

   var s1:string;

        i:integer;

   begin

          clrscr;

          write(‘Nhap xau: ‘);  readln(s1);

          i:=1;

          while i<=length(s1) do

          begin

                 if s1[i] in [‘0’..’9′] then

                        begin

                               delete(s1,i,1);

                               insert(’em’,s1,i);

                               i:=i+2;

                        end;

          i:=i+1;

          end;

          readln;

   end.

   Bình luận

2. Var s: string; 
   i: byte; 
   Begin 
   Write(‘Nhap sau S:’); Readln(s); 
   I:=Pos(’em’,s); 
   While i<> 0 do 
   Begin 
   Delete(s,i,3); 
   Insert(‘anh’,s,i); 
   I:=Pos(’em’,s); 
   End; 
   writeln(S); 
   readln; 
   End. 

   Bình luận