Nhập vào một xâu S,hãy tách xâu S thành hai xâu S1 và S2 S1 gồm các kí hiệu chữ số,S2 gồm các kí hiệu chữ cái

0 bình luận về “Nhập vào một xâu S,hãy tách xâu S thành hai xâu S1 và S2 S1 gồm các kí hiệu chữ số,S2 gồm các kí hiệu chữ cái”

1. uses crt;

   var s,s1,s2:string;

   i:byte;

   begin

   clrscr;

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

   for i:=1 to length(s) do

   if s[i] in [‘0’..’9′] then s1:=s1+s[i]

   else if (s[i] in [‘a’..’z’]) or (s[i] in [‘A’..’Z’]) then s2:=s2+s[i];

   writeln(‘s1: ‘,s1);

   writeln(‘s2: ‘,s2);

   readln

   end.

   Bình luận

2. program chuso_chucai;

   uses crt;

   var s,s1,s2:string;

         i:byte;

   begin

         clrscr;

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

         s1:=”;   s2:=”;

         for i:=1 to length(s) do

               if s[i] in [‘0’..’9′] then s1:=s1+s[i]

                     else if (s[i] in [‘A’..’Z’]) or (s[i] in [‘a’..’z’]) then s2:=s2+s[i];

         writeln(‘S1= ‘,s1);

         writeln(‘S2= ‘,s2);

         readln;

   end.

   Bình luận