Nhập vào 1 xâu kí tự từ bàn phím đếm xem trong xâu đó bao nhiêu chữ cái in thường

0 bình luận về “Nhập vào 1 xâu kí tự từ bàn phím đếm xem trong xâu đó bao nhiêu chữ cái in thường”

1. Program demkt;

   Uses crt;

   Var s: string;

           I,t:integer;

   Begin

   Write(‘nhap xau: ‘); readln(s); t:=0;

   For i:=1 to length(s) do

   If (s[i]>=’a’) and (s[i]<=’z’) then t:=t+1;

   Write(‘Xau co ‘,t,’ ki tu in thuong’);

   Readln;

   End.

   Bình luận

2. uses crt;
   var s:string; i,d:longint;
   begin
   clrscr;
      write(‘Nhap xau: ‘); readln(s);
      for i:=1 to length(s) do 
         if s[i] in [‘a’..’z’] then inc(d);
      writeln(‘Ket qua: ‘,d);
   readln
   end.

   Bình luận