Решение в прикрепленном файле ниже:
<span>Blu-ray — это формат оптического носителя, используемый для хранения видео и компьютерных игр в формате высокой четкости. Диски Blu-ray, пришедшие на смену DVD, обеспечивают качество изображения уровня Full HD. Внешне они выглядят как обычные DVD-диски, поэтому пользоваться ими так же легко и удобно. Особенно важно то, что меню дисков в обоих форматах идентичны, поэтому Blu-ray-плееры могут воспроизводить все имеющиеся в Вашей коллекции хиты, записанные на CD или DVD.</span>
Управление устройствами компьютера (ресурсами), т.е. согласованная работа всех аппаратных средств ПК: стандартизованный доступ к периферийным устройствам, управление оперативной памятью и др.
Обеспечение пользовательского интерфейса.
Исполнение запросов программ (ввод и вывод данных, запуск и остановка других программ, выделение и освобождение дополнительной памяти и др.).
23 символа умножаешь на 8 битов
Получается 23*8=182 бита или 23 байта. (Один символ=1 байт=8 битов)
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>