Задать вопрос
14 ноября, 13:51

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

+5
Ответы (1)
  1. 14 ноября, 15:06
    0
    var

    s: string;

    begin

    readln (s);

    foreach k: string in s. Split (' ') do

    if (pos ('к', k) > 0) then

    writeln (k);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Помогите сделать в pascal abc. Дана строка. Укажите те слова, которые содержат хотя бы одну букву к. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы