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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận