1) Появление компьютерных сетей связано с тем, что военные части в случае военных действий во время холодной войны должны были бы обмениваться информацией по надежному каналу связи. Такой канал связи стали разрабатывать в 50-е годы в США.
Вторая причина тоже связана с обменом информацией только между институтами - появилась необходимость в быстром обмене при проведении исследований на разных научных базах в разных институтах
2) ограниченные возможности запоминающих устройств, т.е. для хранения больших объемов информации
3) для увеличения скорости обрабатываемых данных (в случае большого количества информации)
Const
K = 3;
N = 4;
Var
A:array[1..K,1..N] of integer;
Max,Min,i,j:integer;
Begin
For i:= 1 to K do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
Max:=A[K,N];
Min:=A[K,N];
For i:= 1 to K do
For j:= 1 to N do
Begin
if Max<A[i,j] then Max:=A[i,j];
if Min>A[i,j] then Min:=A[i,j]
End;
WriteLn('Min = ',Min);
WriteLn('Max = ',Max);
End.
Пример:
-3 -2 5 -8
2 -3 7 5
-10 -2 7 4
Min = -10
Max = 7
16000000*5*60=4800000000 (бит);
4800000000/(8*1024*1024*1024)=4800000000/8589934592≈0,56 (гигабайт);
0,56<1;
Ответ: 1) ≈0,56 гигабайт;
2) 0 рублей.
699 в десятичной равно 1010111011 в двоичной
Program Shar;
Var
r, v: Real;
Begin
Write('r = ');
ReadLn(r);
v := 4 / 3 * 3.14 * r * r * r;
WriteLn('v = ', v);
ReadLn;
End.