Soru 23: Girilen kelimede kaç adet “a” harfi olduğunu bulan program

 

{Bir kelimede kaç "a" harfi olduğunu bulan program}

program asayisi;

uses crt;

var

  kelime:string;

  uzunluk,i,asayi:integer;

begin

  clrscr;

  write('Kelimeyi giriniz :');

  readln(kelime);

  uzunluk:=length(kelime);

  for i:=1 to uzunluk do

    if (kelime[i]='A')or(kelime[i]='a') then

      asayi:=asayi+1;

  write('Kelimedeki a harfi adedi :',asayi);

  readkey;

end.