Надеюсь, решила правильно
Var s,gl: string;
<span> i: integer;
</span><span> ps: set of integer;
</span><span>begin
</span><span> gl:='аеёийоуыэюя';
</span><span> write('строка: ');
</span><span> readln(s);
</span><span> ps:=[];
</span><span> i:=2;
</span><span> repeat
</span><span> if pos(s[i],gl)>0 then ps:=ps+[i];
</span><span> i:=i+2;
</span><span> until i>length(s);
</span><span> write('множество четных позиций с гласными: ');
</span><span> foreach i in ps do write(i,' ');
</span><span>end.
</span>
Результат работы:
строка: Это строка для проверки
<span>множество четных позиций с гласными: 20 18 10 8 14
</span>
Var a,b,c: integer;
begin
readln(c);
c:=a+b;
writeln(c);
end.
Что такое дискретизация? Это нежелательный эффект, который приводит к тому, что качество фотографии заметно ухудшается. Данное явление может быть ассоциировано с любым устройством или же процессом, в котором информация подразделяется на несколько отдельных отсчетов. В данном случае дискретизация может рассматриваться в качестве типа интерференционной картины, если есть определенное соотношение между частотой данного явления и определенной периодической структур - Читайте подробнее на FB.ru: <span>http://fb.ru/article/198004/chto-takoe-diskretizatsiya-chastota-diskretizatsii</span>
