Сколько байт можно передать с 64-х разрядной шины данных? доказать.

8 байт

Объяснение:

Шина 64 - разрядная, значит 64-битная, то есть одновременно возможно передать до 64 бит данных

1байт=8 бит

64 бита=8 байт

Программа на паскале:
const n=5;
var xy:array[1..n,1..2] of integer;
i, j, imax, jmax:integer;
r, max:real;
begin
Randomize;
for i:=1 to n do
 begin
 for j:=1 to 2 do
   begin
   xy[i,j]:=random(21)-10;
   write(xy[i,j]:4);
   end;
 writeln;
 end;
max:=0;
for i:=1 to n-1 do 
 for j:=i+1 to n do
   begin
   r:=sqr(xy[i,1]-xy[j,1])+sqr(xy[i,2]-xy[j,2]);
   if r>max then begin max:=r; imax:=i; jmax:=j; end;
   end;  
writeln('max = ',sqrt(r):5:2,', точки: ',imax,' - ',jmax);
end.

Пример:
-8  3
-8 -3
 7  2
 2 10
-6 0
max = 12.81, точки: 2 - 4

PS. Если нужно на C++ - обращайтесь.

Var
a:array[1..100,1..100] of integer;
c:array[1..20,1..20] of real;
b:array[1..20,1..20] of real;
i,j,n,k:integer;
t:real;
r:integer;
begin
randomize;
t:=0;
Writeln('Введите порядок матрицы: ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i, j] := random(10); 
end;
for i:=1 to n do
for j:=1 to n do
begin
b[i,j]:=1/i+j-1;
end;
for i:=1 to n do
for j:=1 to n do
begin
for k:=1 to n do
begin
t :=t+a[i,k]*b[k, j];
end;
c[i,j]:=t;
t:=0;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(' ',c[i,j]:2:2);
end;
Writeln;
end;

end.