Вывести на экран слова, содержащие одновременно буквы ‘а’ и ’о’

@Gabdra · Регистрация: 23.12.2013

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

Дан текст, состоящий из слов: между словами произвольное число пробелов, после последнего слова точка.
Вывести на экран слова, содержащие одновременно буквы ‘а’ и ’о’

@APALoff · 06.10.2014, 12:53

Pascal

Var
  St    : String;
  n1,n2 : Byte;
Begin
  St:='  Закономерность - это проявление      закона   на   поверхности   явлений   в    виде    правильной    повторяемости       явлений     при    определенных    условиях.  Строка закончилась.';
  While Pos('  ',St)<>0 do Delete(St,Pos('  ',St),1);
  n1:=1;
  While (n1<Length(St)) and (St[n1]<>'.') do
  Begin
    If St[n1]=' ' then Inc(n1) else
      Begin
        n2:=n1+1;
        While (n2<Length(St)) and (not (St[n2] in [' ','.'])) do Inc(n2);
        If (Pos('а',Copy(St,n1,n2-n1))<>0) and (Pos('о',Copy(St,n1,n2-n1))<>0) then Writeln(Copy(St,n1,n2-n1));
        If St[n2]='.' then Halt;
        n1:=n2;
      end;
  end;
end.

@Gabdra 1 / 1 / 2 Регистрация: 23.12.2013 Сообщений: 112
		1
	Вывести на экран слова, содержащие одновременно буквы ‘а’ и ’о’ 05.10.2014, 22:37. Показов 2555. Ответов 1 Метки нет (Все метки) Дан текст, состоящий из слов: между словами произвольное число пробелов, после последнего слова точка. Вывести на экран слова, содержащие одновременно буквы ‘а’ и ’о’ 0

	06.10.2014, 12:53

Вывести на экран слова, содержащие одновременно буквы ‘а’ и ’о’

Решение