Ответ:
впервые начинается как военная задумка в середине ХХ века в разгар холодной войны. В 1962 году Дж.К.Р. Ликлайдер, сотрудник Управления перспективных исследовательских проектов Министерства обороны США (на английском языке эта аббревиатура формулируется как DARPA) озвучил мысль о так называемой "галактической сети" из взаимосвязанных компьютеров.
В 1967 году Лоуренс Робертс из Массачусетского технологического института опубликовал план создания такой сети, которую назвал "Арпанет" (на английском – ARPANET, производное от DARPA). В соответствии с ним, два компьютера оказались впервые объединены в сеть в 1969 году.
В 1972 году эта технология была впервые представлена широкой публике на Международной конференции по компьютерным коммуникациям. В этом же году было отправлено первое сообщение по электронной почте.
Первый веб-браузер был создан в 1990 году сэром Тимом Бернерс-Ли. Он назывался WorldWideWeb и позже был переименован в Nexus[3]. Но первым распространённым браузером с графическим интерфейсом был NCSA Mosaic.
Объяснение:
1. (b+sqrt(b*b+4*a*c))/(2*a)-a*a*a*c+1/(b*b)
2. (a/c)*(b/d)-(a*b-c)/(c*d)
3. x-x*x*x/3+x*x*x*x*x/5
4. (x+y)/(x+1)-(x*y-12)/(34+x)
1) чтобы найти R шара нужно V разделить на a и на π
Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при помощи случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.
var s : string;
begin
while (length(s)>0) do begin
s:=copy(s,1,length(s)-1);
write(s);
writeln;
end;
end.