Nhập vào 1 xâu. Đưa ra màn hình xâu là các kí tự số

0 bình luận về “Nhập vào 1 xâu. Đưa ra màn hình xâu là các kí tự số”

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

   Bình luận

2. program:Bai_tap_1;

   uses crt;
   var s:string; i:byte;
   begin
      clrscr;
      write(‘Nhap s: ‘); readln(s);
      for i:=1 to length(s) do
      if (s[i]>=’0′) and (s[i]<=’9′) then write(s[i]);
      readln
   end.

   Bình luận