viết chương trình nhập vào từ bàn phím xâu kí tự s. hãy in ra màn hình có bao nhiêu kí chữ cái xuất hiện trong xâu s? ví dụ: s=’lop chung minh

0 bình luận về “viết chương trình nhập vào từ bàn phím xâu kí tự s. hãy in ra màn hình có bao nhiêu kí chữ cái xuất hiện trong xâu s? ví dụ: s=’lop chung minh”

1. Program FNG;
   Uses crt;
   Var St: String;
       i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do St[i]:=Upcase(St[i]);
           d:=0;
           For i:=1 to n do If St[i] in [‘A’..’Z’] then inc(d);
           Write(d);
           Readln
   End.

   Bình luận

2. program cho5saonha;

   uses     crt;

   var         s:string;

                 i,dem:integer;

   BEGIN

      CLRSCR;

      write(‘Nhap xâu’); readln(s);

      for i:=1 to length(s) do

        if (s[i] in [‘A’..’Z’]) or (s[i] in [‘a’..’z’]) then inc(dem);

      write(dem);

       readln; 

   End.

   Bình luận