Ввести предложение длиной не более 80 символов и подсчитать количество слов в нем и количество букв "а". Будем считать, что одно слово от другого отделяется одним пробелом.

Program Predl;
Var
 Pr : String;
 i, n, Ks, Ka : Integer;

Begin
 Ks := 0;
 Ka := 0;
 Write('Введите предложение');
 Readln(Pr);
 n := Length(Pr); {Длина предложения}
 For i := 1 to n do
 If Pr[i] = ' ' Then
   Ks:= Ks + 1
 Else
   If Pr[i] = 'a' Then
     Ka := Ka + 1;
 If Pr[n]<> ' ' Then
  Ks:=Ks+1; {если в конце предложения нет пробела}
 Writeln('Количество слов в предложении равно ',Ks,
           'количество букв а - ',Ka);
End.



2008-02-19 • Просмотров [ 7268 ]