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.

Answer 2

Вот пример кода на Pascal, который поможет вам найти слова, содержащие хотя бы одну букву "к":

program FindWordsWithK;

uses
  SysUtils;

procedure FindWordsWithK(inputString: string);
var
  words: TStringDynArray;
  word: string;
  i: integer;
begin
  words := inputString.Split([' ']); // Разделяем строку на слова

for i := 0 to Length(words) - 1 do
  begin
    word := words[i];

if Pos('к', LowerCase(word)) > 0 then // Проверяем, содержит ли слово букву "к"
      writeln(word);
  end;
end;

var
  inputString: string;
begin
  writeln('Введите строку:');
  readln(inputString);

FindWordsWithK(inputString);
end.

Программа принимает ввод от пользователя и разделяет введенную строку на отдельные слова. Затем она проверяет каждое слово на наличие буквы "к" (независимо от регистра) с помощью функции `Pos`. Если слово содержит букву "к", оно выводится на экран.

Примечание: В данном примере предполагается, что слова разделены пробелами. Если в вашей строке используется другой разделитель, вам может потребоваться изменить код, чтобы учесть это.

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.