0: Viết chương trình nhập 1 xâu từ bàn phím. Hiển thị tất cả các chữ số trong xâu lên màn hình

program chu_so;

uses crt;

var s:string;

      i:byte;

begin

      clrscr;

      write('Nhap xau: ');  readln(s);

      for i:=1 to length(s) do

            if s[i] in ['0'..'9'] then write(s[i]);

      readln;

end.

Uses Crt;

Var St:String;

dem: Array[‘A’..’Z’] Of Byte;

i:Byte;

ch:Char;

Begin

Write(‘Nhap xau St: ‘); Readln(St);

{Khởi tạo mảng}

For ch:=’A’ To ‘Z’ Do dem[ch]:=0;

{Duyệt xâu}

For i:=1 To Length(St) Do

If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);

{Liệt kê các ký tự ra màn hình}

For ch:=’A’ To ‘Z’ Do

If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);

Readln;

End.