Вывести все слова нечетной длины, в которых есть буква Т

@Hamord26 · Регистрация: 06.02.2013

Добрый вечер. Просьба помочь написать программу к следуйщим задачам:
1)Вывести все слова нечетной длины, в которых есть буква Т. Если таких слов нет, выдать соответствующее текстовое сообщение.

Заранее спасибо.

@CodeR · 07.02.2013, 09:30

Pascal

Const mn=[' ',',','.','?','!'];
Var s,s1:string;
    i,k:byte;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';s1:='';
    For i:=1 to Length(s) do
     if not(s[i] in mn) then s1:=s1+s[i]
     else
     Begin
       if (Pos('T',s1)>0)and odd(Length(s1)) then 
       Begin
         inc(k);
         writeln(s1);
       End;
       s1:='';
     End;
    if k=0 then writeln('Нету таких слов');
End.

@Hamord26 0 / 0 / 0 Регистрация: 06.02.2013 Сообщений: 6
		1
	Вывести все слова нечетной длины, в которых есть буква Т 06.02.2013, 23:23. Показов 1342. Ответов 1 Метки нет (Все метки) Добрый вечер. Просьба помочь написать программу к следуйщим задачам: 1)Вывести все слова нечетной длины, в которых есть буква Т. Если таких слов нет, выдать соответствующее текстовое сообщение. Заранее спасибо. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Вывести все слова нечетной длины, в которых есть буква Т

Решение