viết chương trình nhập vào từ bàn phím 1 xâu kí tự bất kì và đưa ra màn hình số lượng kí tự là chữ cái in hoa có trong xâu

0 bình luận về “viết chương trình nhập vào từ bàn phím 1 xâu kí tự bất kì và đưa ra màn hình số lượng kí tự là chữ cái in hoa có trong xâu”

1. program oken;
   uses crt;
   var s: string;
       i,dem: byte;
   begin
           clrscr;
           write(‘Nhap 1 xau bat ky: ‘); readln(s);
           for i:=1 to length(s) do
                   if s[i] in [‘A’..’Z’] then
                           dem:=dem+1;
           writeln(‘So ky tu hoa trong xau: ‘,dem);
           readln;
   end.

   Bình luận

2. uses crt;
   var s:string;
       i,dem:byte;
   begin
      clrscr;
      write(‘Nhap xau: ‘); readln(s);
      for i:=1 to length(s) do
      if s[i] in [‘A’..’Z’] then inc(dem);
      write(‘So ky tu hoa trong xau la: ‘,dem);
      readln
   end.

   Bình luận