В предложении найти слова, начинающиеся и заканчивающиеся на букву «а» и третья буква в которых «о»

@kosinov · Регистрация: 15.01.2013

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

Как решить задачу? В предложении найти слова, начинающиеся и заканчивающиеся на букву «а» и третья буква в которых «о».

@Valery__ · 15.01.2013, 16:54

Pascal

{В предложении найти слова, начинающиеся и заканчивающиеся на букву «а» и третья буква в которых «о».}
 
Program poiskslov;
var s,s1:string;
    i:integer;
BEGIN
    Writeln ('Введите строку');
    Readln(s);
    s1:='';
    i:=1;
    While i<>Length(s) do
      begin
        if s[i]<>' ' then
          s1:=s1+s[i]
        else
          begin
            if (s1[1]='a') And (s1[3]='o') And (s1[Length(s1)]='a') then
              writeln(s1);
            s1:='';
          end;
        i:=i+1;
      end;
END.

Введите строку
a456a a8o23434a hgjk ogpj afoa jghkjgf a8o56a.
a8o23434a
afoa

@kosinov 0 / 0 / 0 Регистрация: 15.01.2013 Сообщений: 8
		1
	В предложении найти слова, начинающиеся и заканчивающиеся на букву «а» и третья буква в которых «о» 15.01.2013, 15:18. Показов 1684. Ответов 1 Метки нет (Все метки) Как решить задачу? В предложении найти слова, начинающиеся и заканчивающиеся на букву «а» и третья буква в которых «о». 0

	15.01.2013, 16:54

В предложении найти слова, начинающиеся и заканчивающиеся на букву «а» и третья буква в которых «о»

Решение