1. Добавлено 3 бита, 224₁₀=1110 000₂
2. Судя по маске получим 8 подсетей, количество битов узлов подсети - 4
3. В каждой подсети по 30 узлов + адрес подсети + широковещательный адрес
4. Сетевой адрес этой подсети 192.168.200.128
5. Адрес IPv4 первого узла в этой подсети 192.168.200.129
6. Адрес IPv4 последнего узла в этой подсети 192.168.200.158
7. Широковещательный адрес IPv4 в этой подсети 192.168.200.159

0 0

4 года назад

Решить на паскале через рандом. Дан массив размера N (N − четное число). Поменять местами его первый элемент со вторым, третий −

Ernesto [59]

Ответ:

program Change;

var

n, i, j, t: Integer;

A: array of Integer;

begin

Write ('Введите четное число N: ');

ReadLn (n);

if n mod 2 = 0 then begin

SetLength (A, n);

Randomize;

for i := Low (A) to High (A) do begin

A [i] := Random (100);

Write (A [i] :3, ' ');

end;

i := 0;

while i < n do begin

t := A [i];

A [i] := A [i + 1];

A [i + 1] := t;

i := i + 2;

end;

WriteLn;

for i := Low (A) to High (A) do begin

Write (A [i] :3, ' ');

end;

end else

WriteLn ('Введено не четное число.');

ReadLn;

end.

0 0

3 года назад

КАК СДЕЛАТЬ, ЧТОБЫ КОРАБЛИК ДВИГАЛСЯ ВПРАВО?? ПОМОГИТЕ, ПОЖАЛУЙСТА!! ПАСКАЛЬ! uses graphABC; var i:integer; begin setwindowsize(

Светлана Ерёмина [8]

Сделай цикл
for i:=1 to n (добавь переменную) do
begin
line(x+100,y, x1+100, y1)
end;
end.

0 0

4 года назад