Дан текст, между словами один или несколько пробелов . Верно ли, что в тексте имеет по - крайней мере 3 слова, содержащий букву "т"?

@Денис Яландаев · Регистрация: 28.06.2013

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

Дан текст, между словами один или несколько пробелов . Верно ли, что в тексте имеет по - крайней мере 3 слова, содержащий букву "т"?

Добавлено через 17 часов 33 минуты
кто нибудь

@CodeR · 29.06.2013, 11:14

Pascal

Var s,s1:string;
    k:byte;
Begin
    write('Введите текст: ');readln(s);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if Pos('т',s1)>0 then inc(k);
    End;
    writeln(k>=3);
    readln;
End.

@Денис Яландаев 0 / 0 / 0 Регистрация: 28.06.2013 Сообщений: 15
		1
	Дан текст, между словами один или несколько пробелов . Верно ли, что в тексте имеет по - крайней мере 3 слова, содержащий букву "т"? 29.06.2013, 10:48. Показов 1300. Ответов 1 Метки нет (Все метки) Дан текст, между словами один или несколько пробелов . Верно ли, что в тексте имеет по - крайней мере 3 слова, содержащий букву "т"? Добавлено через 17 часов 33 минуты кто нибудь 0

	29.06.2013, 11:14

Дан текст, между словами один или несколько пробелов . Верно ли, что в тексте имеет по - крайней мере 3 слова, содержащий букву "т"?

Решение