Ai giúp mình đi ạ :(( viết phương trình nhập từ bàn phím một xâu có độ dài không quá 200 kí tự. Đưa ra màn hình số tử có trong xâu.

0 bình luận về “Ai giúp mình đi ạ :(( viết phương trình nhập từ bàn phím một xâu có độ dài không quá 200 kí tự. Đưa ra màn hình số tử có trong xâu.”

1. program oken;
   uses crt;
   var s: string[200];
       i: byte;
   begin
       clrscr;
       write(‘Nhap xau: ‘); readln(s);
       write(‘Cac ki tu la so trong xau: ‘);
       for i:=1 to length(s) do
           if s[i] in [‘0’..’9′] then
               write(s[i],’ ‘);
       readln;
   end.

   Bình luận