Важная информация
Показано с 1 по 5 из 5

Тема: Вставить после каждого слова, которое заканчивается на "ая" символ "?"

  1. #1 Вставить после каждого слова, которое заканчивается на "ая" символ "?" 
    Новичок
    Регистрация
    02.12.2011
    Сообщений
    7
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Вставить после каждого слова, которое заканчивается на "ая" символ "?".
    Последний раз редактировалось Konstantin Shcherba; 02.12.2011 в 16:36. Причина: Нужно давать осмысленное название темы.
    Ответить с цитированием  
     

  2. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Код pascal:
    Var
        Tex, Res, ResStr: String;
        I: Word;
     
    Function GetWord(Var AFromStr: String; Var I: Word): String;
    Var
        OldI: Word;
    Begin
        While (AFromStr[I] = ' ') And (I < Length(AFromStr)) Do Inc(I);
        OldI:= I;
        While (AFromStr[I] <> ' ') And (I <= Length(AFromStr)) Do Inc(I);
        GetWord:= Copy(AFromStr, OldI, I - OldI);
    End;
     
    Begin
        ReadLn(Tex);
        I:= 1; ResStr:= '';
        Repeat
            Res:= GetWord(Tex, I);
            If (Length(Res) >= 2) And (Copy(Res, Length(Res) - 1, 2) = 'ая') Then
                ResStr:= ResStr + Res + '?' + ' '
            Else
                ResStr:= ResStr + Res + ' ';
        Until Res = '';
        WriteLn(ResStr);
    End.
    Дружба-магия-радость!
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    02.12.2011
    Сообщений
    7
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Спасибо огромное, вы мне очень помогли
    Ответить с цитированием  
     

  4. #4  
    Новичок
    Регистрация
    02.12.2011
    Сообщений
    7
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Абадябер, еще одна просьба - можно мне без функции написать?
    заранее спасибо
    P.S. мы с Gumm1Bear с одной группы
    Ответить с цитированием  
     

  5. #5  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Код pascal:
    Var
        Tex, Res, ResStr: String;
        I, OldI: Word;
     
    Begin
        ReadLn(Tex);
        I:= 1; ResStr:= '';
        Repeat
            While (Tex[I] = ' ') And (I < Length(Tex)) Do Inc(I);
            OldI:= I;
            While (Tex[I] <> ' ') And (I <= Length(Tex)) Do Inc(I);
            Res:= Copy(Tex, OldI, I - OldI);
            If (Length(Res) >= 2) And (Copy(Res, Length(Res) - 1, 2) = 'ая') Then
                ResStr:= ResStr + Res + '?' + ' '
            Else
                ResStr:= ResStr + Res + ' ';
        Until Res = '';
        WriteLn(ResStr);
    End.
    Дружба-магия-радость!
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. iso Образ диска win95 или win98 для "VIRTUAL PC"
    от Артем в разделе Операционные системы
    Ответов: 5
    Последнее сообщение: 09.11.2017, 09:44
  2. Ответов: 6
    Последнее сообщение: 05.01.2013, 18:02
  3. Ответов: 0
    Последнее сообщение: 08.11.2012, 08:10
  4. Ответов: 14
    Последнее сообщение: 23.08.2011, 01:06
  5. Ответов: 5
    Последнее сообщение: 24.05.2011, 12:53
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •