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