0

Рейтинг

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

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

Категория: Информатика 3 года назад

На вопрос 3 года назад

Джана Антоненко

0

Рейтинг

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 года назад

ЮЛИЯ САМБУКА

0

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

Ответы (1)

0

Войти на сайт