Вопрос по информатике:
Пожалуйста паскаль АВС через цикл FOR.
Дана строка.Определить сколько букв "к" в последнем слове.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.03.2015 21:20
- Информатика
- remove_red_eye 11639
- thumb_up 8
Ответы и объяснения 1
Var
i, n, k: integer;
s, c: string;
begin
writeln('Введите текст');
readln(s);
n := Length(s);
k := 0;
i := n;
repeat
c := Copy(s, i, 1);
if (c = 'к') or (c = 'К') then k := k + 1;
i := i - 1;
until c = ' ';
writeln('В последнем слове буква "k" встречается ', k, ' раз(а)')
end.
Результат прогона тестового примера в PascalABC.NET:
Введите текст
Кукушка кукует, а петух - кукарекает!
В последнем слове буква "k" встречается 3 раз(а)
- 27.03.2015 08:09
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.