Вопрос по информатике:
Помогите пожалуйста составить
программу на ''Pascal ABC'')
Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.
- 14.12.2017 19:44
- Информатика
- remove_red_eye 12399
- thumb_up 48
Ответы и объяснения 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.
- 15.12.2017 10:01
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.