Question

пожалуйста паскаль АВС  через цикл FOR.
Дана строка.Определить сколько букв "к" в последнем слове.

Answer 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 раз(а)