Здесь, как говорится, возможна масса разных вариантов. Один из самых простых такой:
var i,j: integer;
begin
for j:=1 to 5 do begin
for i:=1 to 8 do write('* ');
writeln;
for i:=1 to 8 do write(' *');
writeln;
end;
<span>end.
Если не подойдет - уточняйте требования к программе.</span>
<span>а) AND (A5> 5; A5 <20)=TRUE
</span>Б)OR (C5 <10; С5> = 20)=<span>TRUE
</span>в) OR (C5 <10; A5> 20)=<span>TRUE
</span><span>г) AND (A5> -2; B5> 0)=FALSE</span>
<span>
</span><span>
</span>
Вообще,к графическим объектам относят рисунки,надписи,таблицы,графики,WordArt
По большому счету можно вставить куда угодно что угодно,вопрос только в каком формате и в какую часть документа.
Для начала
КОИ-8 =1 символ равен 8 бит
Для таго, чтобы найти Iобьем нужно=i×n(I обьем= 1 символ чем кодируеться здесь 8 битами[i] × кол.строк × кол. символов{Символы считаются все т.е:пробел , буква , цыфра , знаки препинания и т.д})
n=кол.строк × кол. символов
Iобьем=8×57(точку в конце предложения ,я считал)=456 бит=57байт=0,05кбайт
Ответ:456 бит=57байт=0,05кбайт (В чем записать ответ в этой задаче в битах , в байтах и кбайтах, я незнаю , так что пиши на своё усмотрение;Но лутше в байтах)
<u>// PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,10,99);
a.Println(3); Writeln(3*n*'-');
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do a[i,j]:=0;
Writeln('*** Выходной массив ***'); a.Println(3)
end.