Aurilmeena
7 год назад
Дана строка, состоящая из русскиз слов. Вывести множество чётных позиций, на которых стоят гласные буквы.
P.S. Решение в Pascal abc или напишите на листе, пришлите фото с решением, пожалуйста.
ОТВЕТЫ
Поздеев
Jul 24, 2019
Var s,gl: string;
i: integer;
ps: set of integer;
begin
gl:=аеёийоуыэюя;
write(строка: );
readln(s);
ps:=[];
i:=2;
repeat
if pos(s[i],gl)gt;0 then ps:=ps+[i];
i:=i+2;
until igt;length(s);
write(множество четных позиций с гласными: );
foreach i in ps do write(i, );
end.
Результат работы:
строка: Это строка для проверки
множество четных позиций с гласными: 20 18 10 8 14
i: integer;
ps: set of integer;
begin
gl:=аеёийоуыэюя;
write(строка: );
readln(s);
ps:=[];
i:=2;
repeat
if pos(s[i],gl)gt;0 then ps:=ps+[i];
i:=i+2;
until igt;length(s);
write(множество четных позиций с гласными: );
foreach i in ps do write(i, );
end.
Результат работы:
строка: Это строка для проверки
множество четных позиций с гласными: 20 18 10 8 14
141
