nhập vào một xâu kí tự r in ra màn hình, in ra các chữ và chữ số có trong xâu kí tự. vd: dfh3hj4n3 số:3 4 3 chữ d f h h j n giúp mình với, cảm ơn rất

Bởi

nhập vào một xâu kí tự r in ra màn hình, in ra các chữ và chữ số có trong xâu kí tự.
vd: dfh3hj4n3
số:3 4 3
chữ d f h h j n
giúp mình với, cảm ơn rất nhiều ạaa

0 bình luận về “nhập vào một xâu kí tự r in ra màn hình, in ra các chữ và chữ số có trong xâu kí tự. vd: dfh3hj4n3 số:3 4 3 chữ d f h h j n giúp mình với, cảm ơn rất”

  1. uses crt;
    var s:string; i:longint;
    begin
    clrscr;
       write(‘S=’);readln(s);
       write(‘So: ‘);
       for i:=1 to length(s) do if s[i] in [‘0′..’9′] then write(s[i],’ ‘);
       writeln;
       write(‘Chu: ‘);
       for i:=1 to length(s) do if upcase(s[i]) in [‘A’..’Z’] then write(s[i],’ ‘);
    readln
    end.

    Bình luận

Viết một bình luận