Ввести предложение длиной не более 80 символов и подсчитать количество слов в нем и количество букв "а". Будем считать, что одно слово от другого отделяется одним пробелом.
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 • Просмотров [ 10296 ]
