Помогите пожалуйста составить программку на 039;039;Pascal ABC039;039;)Дана строка, содержащая текст на
Помогите пожалуйста составить
программу на ''Pascal ABC'')
Дана строка, содержащая текст на российском языке, и некая буковка. Подсчитать, сколько слов начинается с обозначенной буковкы.
1 ответ
Семик
var
str : string;
i, j: byte;
schr: char;
begin
readln(str); //Вводим строчку
str := ' ' + str; //Это чтоб не удлинять условие, что ниже
readln(schr); //Вводим знак
for i := 2 to length(str) do
if ((upcase(str[i]) = upcase(schr)) and (str[i - 1] = ' ')) then
inc(j);
writeln(j);
end.
str : string;
i, j: byte;
schr: char;
begin
readln(str); //Вводим строчку
str := ' ' + str; //Это чтоб не удлинять условие, что ниже
readln(schr); //Вводим знак
for i := 2 to length(str) do
if ((upcase(str[i]) = upcase(schr)) and (str[i - 1] = ' ')) then
inc(j);
writeln(j);
end.
Антонина Добрынкина
Обьясните пожалуйста поподробнее, просто пропустил и плохо сообразил тему
Антонина Овар
Здесь просто: проходимся по строке и ищем слово, начинающееся с данной буковкы. Слово начинается с неё, если она идёт после пробела. Чтоб от этого управляла не отступать, прибавляем пробел перед первым словом. Ну и отыскиваем в цикле, сколько есть последовательностей пробел
Юрий Фортинский
пробел+буковка
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов