Nhập xâu và in ra các số nguyên có trong xâu.(pascal)

0 bình luận về “Nhập xâu và in ra các số nguyên có trong xâu.(pascal)”

1. program sotrongxau;

   uses crt;

   var st,st2:string;

         i:byte;

   begin

   clrscr;

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

   st2:=”;

   write(‘Cac so co trong xau la: ‘);

   for i:=1 to length(st) do

     if st[i] in [‘0’..’9′] then st2:=st2+st[i]

     else

       begin

           write(st2,’ ‘);

           st2:=”;

       end;

   readln

   end.

   Bình luận

2. uses crt;
   var s,tam:string;
       i:byte;
   BEGIN
           clrscr;
           write(‘Nhap xau:’); readln(s);
           tam:=”;
           for i:=1 to length(s) do
           begin
                   if s[i] in [‘0’..’9′] then tam:=tam+s[i]
                   else
                   begin
                           if tam<>” then writeln(tam);
                           tam:=”;
                   end;
           end;
           readln
   END.

   Cho mình ctlhn nha.

   Bình luận