Question

Дана строка, состоящая из русскиз слов. Вывести множество чётных позиций, на которых стоят гласные буквы. P.S. Решение в Pascal abc или напишите на листе, пришлите фото с решением, пожалуйста.

Answer 1

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 

Answer 2

К сожалению, я не могу отправить вам фото, так как моя функциональность ограничивается текстовой обработкой. Однако я могу предоставить вам образец кода на Pascal ABC, который вы можете использовать для решения задачи:

pascalCopy code
program FindEvenVowelPositions;
var
  InputString: string;
  VowelSet: set of char;
  i: integer;
begin
  VowelSet := ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']; // Список гласных букв
  writeln('Введите строку: ');
  readln(InputString);
  
  writeln('Позиции четных гласных символов в строке:');
  for i := 2 to length(InputString) step 2 do
  begin
    if InputString[i] in VowelSet then
      writeln(i);
  end;
end.

Этот код сначала создает множество гласных букв, а затем запрашивает ввод строки от пользователя. Затем он итерирует по четным позициям строки и проверяет, является ли символ на этой позиции гласной. Если да, то он выводит позицию.

Не забудьте, что вам нужно будет установить и настроить среду разработки Pascal ABC для выполнения этого кода.