З1:
Program z;
var mas: array [1..10] of integer;
i, x: integer;
begin
for i:=1 to 10 do
readln(mas[i]);
for x:=1 to 10 do
if mas[x] mod 2 = 1 then writeln(mas[x]);
<span>end.
</span>З2:
Program z;
var mas: array [1..10] of integer;
i, x: integer;
begin
for i:=1 to 10 do
readln(mas[i]);
for x:=1 to 10 do
if (mas[x] mod 2 = 0) and (mas[x] > 0) then writeln(mas[x]);
end.
Const nx=30;var n,i,k,t,j,kp :integer;p,pp: real;b:array[1..nx] of integer;beginReadln(n);if n mod 2 = 0 then beginp:= n/2;k:=round(p); pp:= k/2; kp:=round(pp);for i:=1 to n do beginb[i]:=random(98)-25;write(b[i]:3);end;writeln;for i:= k downto 1 do beginj:=j +1;t:=b[j];b[j]:=b[i]; b[i]:=t;if i - kp =1 then break;end;writeln;j:=k;for i:= n downto k+1 do beginj:=j +1;t:=b[j];b[j]:=b[i]; b[i]:=t;if i - (kp+k) =1 then break;end;for i:=1 to n do write(b[i]:3);endelsewriteln('Введено не правино');end.
Program s;
var
a,b:integer;
begin
readln(b);
for a:=1 to b do
if a mod 2 = 0 then writeln(a*a) else writeln('-1');
end.
Сколько вершин? 31
Есть ли рёбра? Да
Есть ли направление? Нет
Все вершины соединены рёбрами? Да
Пояснение:
Вершины просто посчитать. Рёбра безусловно есть, они соединяют вершины. Направления нет (неориентированный граф, нет стрелочек на рёбрах). Все вершины соединены, нет изолированных, то есть граф связный.
Пожалуй больше ничего и не скажешь. Разве что такие графы называются "деревьями", в этом случае дерево двоичное. То есть один корень, и степени вершин неориентированного в данном случае дерева не превосходят 3. Этого в задании нет, однако можно отметить для общего развития.
Ответ:
16 бит на 1 символ
Объяснение:
1). 256 Кбайт = 262144 байт = 2097152 бит
2). 128*32*32 = 131072 символов.
3). 2097152 / 131072 = 16 бит на 1 символ
