Указать те слова, которые содержат хотя бы одну букву к.

@Эльвир35 · Регистрация: 18.01.2010

Author24 — интернет-сервис помощи студентам

дана строка.
Указать те слова, которые содержат хотя бы одну букву к.

@WolfCF · 23.01.2010, 09:22

а в поиске поискать? нираз уже решалось подобное.

@Эльвир35 · 26.01.2010, 10:15 **[ТС]**

Искать пробовал но че то не нашел отправьте пожалуйста готовое решение??

@кот Бегемот · 26.01.2010, 10:16

Сообщение от Эльвир35

Дана строка. Указать те слова, которые содержать хотя бы одну букву k,

Pascal

var
a,t:string;
b:array[1..10]of string;
i,k,j,f:integer;
begin
readln(a);
k:=1;
for i:=1 to length(a)-1 do
if a[i]=' 'then inc(k) else b[k]:=b[k]+a[i];
for i:=1 to k do
begin
t:=b[i];
f:=0;
 for j:=1 to length(t) do
  if t[j]='k' then f:=1;
if f=1 then write(b[i],' ');
end;
readln;
end.

@WolfCF · 26.01.2010, 10:18

https://www.cyberforum.ru/pascal/thread89682.html
плодоносец

Добавлено через 2 минуты
https://www.cyberforum.ru/pasc... d9211.html
https://www.cyberforum.ru/pasc... 41054.html
https://www.cyberforum.ru/pasc... 53235.html

остальные мне копировать лень. Мало? или у мня поиск волшебный....

@Эльвир35 0 / 0 / 0 Регистрация: 18.01.2010 Сообщений: 25
		1
	Указать те слова, которые содержат хотя бы одну букву к. 23.01.2010, 09:12. Показов 5217. Ответов 4 Метки нет (Все метки) дана строка. Указать те слова, которые содержат хотя бы одну букву к. 0

@WolfCF 3312 / 1374 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	23.01.2010, 09:22	2
	а в поиске поискать? нираз уже решалось подобное. 1

@Эльвир35 0 / 0 / 0 Регистрация: 18.01.2010 Сообщений: 25
	26.01.2010, 10:15 [ТС]	3
	Искать пробовал но че то не нашел отправьте пожалуйста готовое решение?? 0

@WolfCF 3312 / 1374 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	26.01.2010, 10:18	5
	https://www.cyberforum.ru/pascal/thread89682.html плодоносец Добавлено через 2 минуты https://www.cyberforum.ru/pasc... d9211.html https://www.cyberforum.ru/pasc... 41054.html https://www.cyberforum.ru/pasc... 53235.html остальные мне копировать лень. Мало? или у мня поиск волшебный.... 0