Дана строка, состоящая из русскиз слов. Вывести множество чётных позиций, на которых стоят гласные буквы.
P.S. Решение в Pascal abc или напишите на листе, пришлите фото с решением, пожалуйста.
Ответы
Ответ дал:
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
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
Ответ дал:
0
Можете, пожалуйста, пояснить ещё кое-что? s-строка, gl-все гласные буквы. А что такое i и ps?
Ответ дал:
0
И поясните ещё предпоследнюю строчку (перед end).
Ответ дал:
0
А, все, сам разобрался. Проверил в программе, всё работает. Спасибо!
Ответ дал:
0
Только "й" надо из гласных убрать, он согласный)
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад