Общий объем равен 56 кбайт =159744 байт
информац объем страницы 8 бит * 80 * 64 = 40960 бит = 5120 байт = 31.2 ≈ 32 страницы
Ответ 32 страницы
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>
1.<span>Что из ниже перечисленного имеет свойство передавать информацию?<span>
Верный ответ: </span></span><span>г) световой луч
2.</span><span>Выберете событие, которое можно отнести к информационным процессам...
Верный ответ: </span><span>б) перекличка присутствующих на уроке</span>
Из предложений, связанных между собой какой-то общей темой.