Меню сайта

Задача №8

Строка содержит английский текст. Подсчитать количество букв, начинающихся на букву b.


program string_8-

var s:string-

i,k:integer-

begin write(‘введите строку:’)-

readln(s)-

s:=’ ‘+s-k:=0-

for i:=1 to length(s) do

if (s[i]=’ ‘) and (s[i+1]=’b’) then k:=k+1-

writeln(k)-

Readln-

end.

Категория: Строки | Дата: 11.01.13

Меню раздела
Блок