<h2>Глобальная сеть — любая сеть связи, которая охватывает всю Землю. Термин, используемый в данной статье, относится в более узком смысле к двунаправленным сетям связи, а также базе технологий сетей.(Интернет)</h2>
1) б)монитор
2) 10бит, 2байта, 20 байтов, 1010байтов, 1 Кбайт
3) 1,5*1024*1024*8=12582912/128000=98,4 сек
Const
n = 10;
m = 10;
var i, j, column, row, sum_column, sum_row: integer;
arr: array [1..n,1..m] of integer;
begin
for i :=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:= random()*10;
end;
end;
readln(row);
readln(column);
sum_column:= 0;
sum_row := 0;
for i:=1 to n do
begin
sum_row := sum_row + arr[i,row];
end;
for j:=1 to m do
begin
sum_column := sum_column + arr[column, j];
end;
writeln(sum_column);
writeln(sum_row);
end.
Не проверено. Написал сходу в окне.
//PascalABC.Net 3.2
{2}
function f(x:real):real;
begin
if x>0 then result:=x/3 else result:=x*sqr(x);
end;
begin
write (f(readreal('x =')));
end.
{3}
begin
var cat:=readinteger('Введите начальное кол-во:');
var count:=0;
if cat<2 then write ('Никогда') else
if cat>100 then write ('Уже не хватает') else begin
repeat
count+=1;
cat+=cat div 2;
until cat>100;
print ('Через', count, 'недели');
end;
end.