xâu có độ dài không xác định được nhập từ bàn phím .Viết chương trình in xâu đó ra màn hình theo thứ ngược lại sau khi bỏ cac chữ số giúp mk vs ạ

0 bình luận về “xâu có độ dài không xác định được nhập từ bàn phím .Viết chương trình in xâu đó ra màn hình theo thứ ngược lại sau khi bỏ cac chữ số giúp mk vs ạ”

1. Var S:string;

          i:byte;

   begin

       write (‘hay nhap s’);

       readln(S);

       For i := length(s) downto 1 do if (S[i]<0) and (S[i] >9) then write (S[i]:3);

       readln

   end. 

   Bình luận