Soru 22: Girilen cümledeki kelime sayısını bulan program

 

{Bir cümlede kaç adet kelime olduğunu bulan program}

program kelimesay;

uses crt;

var

  cumle:string;

  uzunluk,i,kelimesayi:integer;

begin

  clrscr;

  write('Cümleyi giriniz :');

  readln(cumle);

  uzunluk:=length(cumle);

  for i:=1 to uzunluk do

    if (cumle[i]=' ')and(cumle[i+1]<>' ') then

       kelimesayi:=kelimesayi+1;

  write('Cümledeki kelime sayısı :',kelimesayi+1);

  readkey;

end.