Дана строка, состоящая из русскиз слов. Вывести множество чётных позиций, на которых стоят гласные

Дана строка, состоящая из русскиз слов. Вывести множество чётных позиций, на которых стоят гласные буквы.
P.S. Решение в Pascal abc или напишите на листе, пришлите фото с решением, пожалуйста.
Категория: Информатика 3 года назад
На вопрос 3 года назад
Джана Антоненко
Var s,gl: string;
    i: integer;
    ps: set of integer;
begin
  gl:='аеёийоуыэюя';
   write('строка:  ');
   readln(s);
   ps:=[];
   i:=2;
   repeat
     if pos(s[i],gl)>0 then ps:=ps+[i];
     i:=i+2;
   until i>length(s);
   write('множество четных позиций с гласными:  ');
   foreach i in ps do write(i,' ');
end.    
Результат работы:
 строка:  Это строка для проверки
множество четных позиций с гласными:  20 18 10 8 14 
Ответ получен 3 года назад
ЮЛИЯ САМБУКА

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт