Nhập xâu S từ bàn phím và thực hiện -tính chiều dài xâu s? -đếm số lần chữ cái xuất hiện trong xâu

0 bình luận về “Nhập xâu S từ bàn phím và thực hiện -tính chiều dài xâu s? -đếm số lần chữ cái xuất hiện trong xâu”

1. program bai_giai;

   uses crt;

   var s:string;

        i,j,d:byte;

        tg:char;

   begin

         clrscr;

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

         writeln(‘Chieu dai cua xau la: ‘,length(s));

         d:=0;

         for i:=1 to length(s) do

               if (s[i] in [‘A’..’Z’]) or (s[i] in [‘a’..’z’]) then d:=d+1;

         write(‘Co ‘,d,’ chu cai xuat hien’);

         readln;

   end.

   Bình luận

2. uses crt;

   var s: string;

   i,d: byte;

   begin

   clrscr;

   write (‘nhap xau s: ‘);   readln (s);

   for i:=1 to length(s) do

   if (s[i] in [‘a’..’z’]) or (s[i] in [‘A’..’Z’]) then d:=d+1;

   writeln (‘do dai cua xau s: ‘,length(s));

   writeln (‘so lan xuat hien cua chu cai trong xau: ‘,d);

   readln;

   end.

   Bình luận