Вариант 1 1. ответьте на вопросы, используя сеть интернет: вопрос 1. назовите людей, причастных к созданию сети интернет вопрос 2. по каким признакам разделяются доменные имена первого уровня? вопрос 3. назовите имя великого визиря, имя которого означало «опора государства»

1. учёный. 3. визирь опора государство- это " халиф- аист"

Type   tmatrix = array[,] of integer;   tvector = array of integer; var    a: tmatrix;   b: tvector;   m,n,i,j: integer;     procedure createmulvector(a: tmatrix; var b: tvector); var i, j: integer; f: boolean; begin   setlength(b, length(a, 0));   for i : = 0 to length(a, 0) - 1 do begin     b[i] : = 1; f : = false;     for j : = 0 to length(a, 1) - 1 do begin       if a[i,j] > 0 then begin         f : = true;         b[i] : = b[i] * a[i,j];       end;     end;     if not f then b[i] : = 0;   end; end; procedure writevector(b: tvector); var i: integer; begin   for i : = 0 to length(b) - 1 do      write(b[i]: 3); end; begin   randomize;   n : = random(10) + 1;   m : = random(10) + 1;   setlength(a, n, m);   writeln('исходная матрица: ');   for i : = 0 to n-1 do begin     for j : = 0 to m-1 do begin       a[i,j] : = random(10) - 5;         write(a[i,j]: 4);     end;     writeln;   end;       createmulvector(a, b);   writeln('полученный вектор: ');   writevector(b); end.

A. 89 | 44 | 22 | 11 | 5 | 2 | 1     1       0     0     1     1     0   1 89 = 1011001 б. 600 | 300 | 150 | 75 | 37 | 18 | 9 | 4 | 2 | 1        0       0       0       1     1     0     1     0   0   1 600 = 1001011000 в. 2010 | 1005 | 502 | 251 | 125 | 62 | 31 | 15 | 7 | 3 | 1|       0         1         0         1     1         0   1       1   1   1   1 2010 = 11111011010 объяснение: каждое число мы делим на 2, то есть 2010 / 2 = 1005, если оно делится без остатка то пишем в нижней строчке 0, если попадается нечётное число (число которое не делится на 2 без остатка), допустим 1005, то в нижней строчке пишем один и дальше делим следующее чётное число то есть 1005 => 1004 / 2 = 502.