Помогите сделать в pascal abc. Дана строка.Укажите те слова, которые содержат хотя бы одну букву к.
Помогите сделать в pascal abc. Дана строка.Укажите те слова, которые содержат хотя бы одну букву к.
Гость
Ответ(ы) на вопрос:
Гостьvar
s: string;
begin
readln(s);
foreach k: string in s.Split(' ') do
if (pos('к', k) > 0) then
writeln(k);
end.
Не нашли ответ?
Похожие вопросы