Создатель компьютерной вычислительной сети был Джозеф Карл Робнетт
#include <iostream>
<span>#include <iomanip>
</span><span>using namespace std;
</span>int main() {
<span> int n;
</span><span> cout<<"n = "; cin>>n;
</span><span> int a[n];
</span><span> cout<<"massiv: ";
</span><span> for (int i=0; i<n; i++) cin>>a[i];
</span><span>// по возрастанию
</span><span> for (int i=0; i<n-1; i++)
</span><span> for (int j=i+1; j<n; j++)
</span><span> if (a[j]<a[i]) swap(a[i],a[j]);
</span><span>// </span><span>вывод на экран
</span><span> for (int i=0; i<n; i++) cout<<a[i]<<" ";
</span><span> cout<<endl;
</span><span>// по убыванию
</span><span> for (int i=0; i<n-1; i++)
</span><span> for (int j=i+1; j<n; j++)
</span><span> if (a[j]>a[i]) swap(a[i],a[j]);
</span><span>// вывод на экран
</span><span> for (int i=0; i<n; i++) cout<<a[i]<<" ";
</span><span> cout<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>
===== PascalABC.NET =====
procedure pK(n: integer; var k: int64);
begin
k := 1;
for var i := 2 to n do
k *= i
end;
function fK(n: integer): int64;
begin
Result := 1;
for var i := 2 to n do
Result *= i
end;
begin
var n := ReadInteger('n =');
var r: int64;
pK(n, r);
Println('Процедура:', r);
Println('Функция:', fK(n))
end.
Ответ:1, 4,6
Объяснение: каретка- это ножка на жеском диске, считывающяя, записывающяя и удаляющяя данные с диска. Вверх и вниз привод не позволяет ей двигаться, а вправо и влево может (на кол-во точек на диске)
С помощью магнитного покрытия каретка узнает наличие точки или метки. А также может записать и удалить/стереть информацию.