Question

Помогите сделать в pascal abc. Дана строка.Укажите те слова, которые содержат хотя бы одну букву к.

Answer 1

var
  s: string;

begin
  readln(s);
  foreach k: string in s.Split(' ') do
    if (pos('к', k) > 0) then
      writeln(k);
end.