Программа на паскале: 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.
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;
8 байт
Объяснение:
Шина 64 - разрядная, значит 64-битная, то есть одновременно возможно передать до 64 бит данных
1байт=8 бит
64 бита=8 байт