Pascal - Вывести слова начинающиеся на гласную букву

@некто · Регистрация: 26.04.2012

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

Тема: Строки символов.
Дано предложение. Вывести слова начинающиеся на гласную букву.

@CodeR · 29.01.2013, 09:45

Pascal

Const mn=[' ','.',',','!','?'];
      gl=['Ё','У','Е','Ы','А','О','Э','Я','И','Ю',
         'ё','у','е','ы','а','о','э','я','и','ю',
         'E','Y','U','I','O','A',
         'e','y','u','i','o','a'];
Var s,s1:string;
    i: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 s1<>'' then
       if s1[1] in gl then write(s1,' ');
      s1:='';
    End;
    readln;
End.

@некто 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 4
		1
	Pascal - Вывести слова начинающиеся на гласную букву 28.01.2013, 15:11. Показов 9140. Ответов 1 Метки нет (Все метки) Тема: Строки символов. Дано предложение. Вывести слова начинающиеся на гласную букву. 0

	29.01.2013, 09:45

Pascal - Вывести слова начинающиеся на гласную букву

Решение