НАДО УМОЛЯЮ ВАС Я НИКОГДА ЭТО НЕ РЕШУ А МНЕ НАДО ПО ИНФЕ ИСПРАВЛЯТЬ АТТЕСТАТ ВСЕ ДЕЛА Массив arr из десяти элементов сформирован командой: for i := 1 to 10 do arr[i] := 2 * i + 10;

Чему равна сумма элементов массива?

Отметь результат работы фрагмента программы:

s := 1;

for i := 1 to 15 do s := s * i;

Выбери верный вариант.

0

произведение всех чисел от 1 до 15

произведение всех элементов массива

1

1) Маска подсети: 11111111.11111111.11110000.00000000

     IP:                         11101000.01111110.10010110.00010010

номер сети - там где у маски единицы, а номер хоста В сети - там где у маски нули.

т.е  0110.00010010 отсюда получаем номер хоста: 0110.00010010 =1554

2)   Маска подсети: 11111111.11111111.11100000.00000000

       IP:                         11001110.10011110.01111100.01000011

Номер хоста: 11100.01000011= 7235

3)  Маска подсети:  11111111.11111111.11111100.00000000

      IP:                          11100010.10111001.01011010.10100010 

 Номер хоста: 10.10100010=674     

type Cl = class
  a:integer;
  constructor Create(b:integer);
  procedure SetVal(b:integer);
  function GetVal:integer;
  procedure Sq;
end;

constructor Cl.Create(b:integer);
begin
  a := b;
end;

procedure Cl.SetVal(b:integer);
begin
  a := b;
end;

function Cl.GetVal:integer;
begin
  GetVal := a;
end;

procedure Cl.Sq;
begin
  if a < 0 then
    writeln('a ^ 2 = ', a * a)
  else
    writeln('Error');
end;

var
  Obj:Cl;
  a :integer;
begin
  write('a = ');
  readln(a);
  Obj := Cl.Create(a);
  Obj.Sq;
  Readln;
  Obj.Destroy;
end.