Const nx = 50; Var A,B,D:array[1..nx]of integer; i,n,j,m,z,k,m1:integer; Begin WriteLn('Введи количество элементов массива'); Read(n); For i:= 1 to N do begin A[i]:= random(20)-5;write(A[i]:3);end;writeln; For i:= 1 to N do begin z:= A[i];k:=0; For j:= i+1 to N do if A[i] = A[j] then k:= k +1; For j:= 1 to m do if A[i] = B[j] then k:= k +1; For j:= 1 to m1 do if A[i] = D[j] then k:= k +1; if k = 0 then begin m:= m + 1; B[m] := z;end else begin m1:= m1 + 1; D[m1] := z;end; end;writeln('B'); For i:= 1 to m do write(B[i]:3); end.
Вначале я Вам напишу простой перевод: 1 байт = 8 бит 1 Кбайт = 1024 байт 1 Мбайт = 1024 Кбайт 1 ГБ = 1024 МБ Первая задача - Гбайт в Бит: Для того, чтобы перевести Гбайты в Биты, нужно количество Гбайт умножить на 1024 ещё раз умножить на 1024 и ещё раз умножить на 1024 и потом умножить на 8. У нас получится ответ, который вы ищете, Например: Возьмем 1 Гбайт и переведём его в биты, распишу по действиям: 1)1*1024 = 1024 2)1024*1024 = 1048576 3)1048576*1024 = 1073741824 4)1073741824*8 = 8589934592 ответ: 8589934592 Бит. Вторая задача - Бит в Байт: Для того, чтобы перевести Биты в Байты, нужно количество битов поделить на 8, т.к 1 байт = 8 бит(об этом писал выше) и получим нужный ответ, Например: Опять возьмём 1 Бит и переведём его в Байты(напишу в нескольких видах, если будет непонятно): - первый вид 1/8 = 0,125 - второй вид 1:8 = 0,125 - третий вид ответ: 0,125 Байт. Вот так у нас получилось 2 ответа: Первый - 8589934592 Бит и Второй 0,125 Байт.
- первый вид
Var A,B,D:array[1..nx]of integer; i,n,j,m,z,k,m1:integer;
Begin
WriteLn('Введи количество элементов массива'); Read(n);
For i:= 1 to N do begin
A[i]:= random(20)-5;write(A[i]:3);end;writeln;
For i:= 1 to N do begin
z:= A[i];k:=0;
For j:= i+1 to N do
if A[i] = A[j] then k:= k +1;
For j:= 1 to m do
if A[i] = B[j] then k:= k +1;
For j:= 1 to m1 do
if A[i] = D[j] then k:= k +1;
if k = 0 then begin
m:= m + 1; B[m] := z;end
else begin m1:= m1 + 1; D[m1] := z;end;
end;writeln('B');
For i:= 1 to m do write(B[i]:3);
end.