viết chương trình nhặp từ bàn phím một xâu kí tự ko dài 100 kí tự và hãy in ra màn hình các chữ số trong xâu đó

0 bình luận về “viết chương trình nhặp từ bàn phím một xâu kí tự ko dài 100 kí tự và hãy in ra màn hình các chữ số trong xâu đó”

1. uses crt;
   var s:string; i:byte;
   begin
   clrscr;
      write(‘Nhap 1 xau: ‘);readln(s);
      for i:=1 to length(s) Do 
         if s[i] in [‘1’..’9′] then write(s[i]);
   readln
   end.

   Bình luận

2. var s: string;

         i: byte;

   Begin

       Write(‘nhap xau: ‘); readln(s);

      For i:=1 to length(s) do

          If s[i] in [‘0’..’9′] then write(s[i], ‘   ‘);

      Readln

   End.

   Bình luận