Работа 3.8 Упр.10 ГДЗ Семакин 10 класс (Информатика)

Задача

Дана строка текста. Подсчитать количество букв «к» в последнем слове.

Подробный ответ

Чтобы подсчитать количество букв «к» в последнем слове строки, сначала выделим это последнее слово. Для этого удобно идти по строке с конца и накапливать символы, пока не встретится разделитель: пробел, запятая, точка, восклицательный или вопросительный знак, тире.

После этого просматриваем полученное слово и считаем, сколько раз в нём встречается буква к.

var s, s1: string;
i, k: byte;
begin
  write(‘Введите строку: ‘);
  readln(s);
  k := 0;
  s1 := »;
  for i := Length(s) downto 1 do
    if not(s[i] in [‘ ‘, ‘,’, ‘.’, ‘!’, ‘?’, ‘-‘]) then
      s1 := s1 + s[i]
    else
      break;
  for i := 1 to Length(s1) do
    if s1[i] = ‘к’ then inc(k);
  if k > 0 then
    write(‘В последнем слове букв «к» = ‘, k)
  else
    write(‘В последнем слове буква «к» не встречается’);
end.