Написать программу для решения задачи. Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.
Не копируйте существующие, не работают
Ответы
Ответ дал:
0
program raf105;
var
s:string;
b:char;
o,i:integer;
begin
write('Введите строку: ');
readln(s);
write('Введите искомую букву: ');
readln(b);
s:= lowercase(s);
b:= lowercase(b);
if s[1] = b
then o+=1;
for i:=2 to length(s) do
if (s[i]=b) and (s[i-1]=' ')
then o+= 1;
writeln('С буквы "',b,'" начинается ',o,' сл.');
end.
Язык PascalABC
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад