Ответ: var s: string;begin readln(s); foreach k: string in s.Split(‘ ‘) do if (pos(‘к’, k) > 0) then writeln(k);end.
Источник znanija.site
Помогите сделать в pascal abc. Дана строка.Укажите те слова, которые содержат хотя бы одну букву к. — Правильный ответ на вопрос найдете ниже
24.12.2019 · 1