1 килобайт = 1024 байт (2^10 байт)
1 байт = 8 бит (2^3 бит)
1 мб = 1024кб (2^10 кб)
1. 2^13 байт / 2^10 = 2^3 кб (8кб)
2. 2^16 байт / 2^10 = 2^6 КБ (64кб)
3. 2^13 бит / 2^3 / 2^10 = 2^0 КБ (1кб)
4. 2^16 бит / 2^3 / 2^10 = 2^3 КБ (8кб)
5. 1/4 (2^-2) Соответственно 2^-2 * 2^10 = 2^8кб (256кб)
1) возводим в квадрат один из катетов
2) возводим в квадрат второй катет
3) складываем результаты
4) извлекаем корень из получившейся суммы
Const n=10; m=5;
var
i,j,k:integer;
A:array[1..n] of integer;
B,C:array[1..m] of integer;
begin
writeln('Введите элкменты массива');
for i:=1 to n do readln(a[i]);
j:=0; k:=0;
for i:=1 to n do
if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
else begin k:=k+1; C[k]:=A[i] end;
writeln('Массив А');
for i:=1 to n do write(A[i],' ');
writeln;
writeln('Массив B');
for i:=1 to j do write(B[i],' ');
writeln;
writeln('Массив C');
for i:=1 to k do write(C[i],' ');
writeln
end.