Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Пример обработки строк в Паскале

Задача. Ввести предложение длиной не более 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.
 Похожие публикации: Pascal

Войдите, чтобы добавить Ваш ответ. [ Регистрация | Вход ]