– Nhập một xâu A không quá 150 kí tự – Tạo xâu B gồm các kí tự là số trong xâu A – In các xâu ra màn hình

0 bình luận về “– Nhập một xâu A không quá 150 kí tự – Tạo xâu B gồm các kí tự là số trong xâu A – In các xâu ra màn hình”

1. program oken;
   uses crt;
   var a,b: string[150];
       i: byte;
   begin
           clrscr;
           write(‘nhap xau a: ‘); readln(a);
           for i:=1 to length(a) do
                   if (a[i] in [‘0’..’9′]) then
                           b:=b+a[i];
           writeln(‘xau b: ‘,b);
           readln;
   end.

   Bình luận

2. uses crt;
   var A,B:string[150];
       i: byte;
   begin
      clrscr;
      write(‘Nhap xau A: ‘); readln(A);
      for i:=1 to length(A) do
      if (A[i] in [‘0’..’9′]) then B:=B+A[i];
      writeln(‘Xau B la: ‘,B);
      readln
   end.

   Bình luận