Эта программа может выглядеть так:
uses Crt;
const n=20;
type Mas=array [1..n] of integer;
var A: Mas;
i, Sum, Col, Sred: integer;
begin
ClrScr;
Randomize;
Sum:=0;
for i:=1 to n do
begin
A[i]:=-10+random(26);
Write (A[i]:4);
Sum:=Sum+A[i];
end;
WriteLn;
Sred:=Sum div n;
WriteLn('Srednee:',Sred:4);
Col:=0;
for i:=1 to n do
if A[i]=Sred then Col:=Col+1;
WriteLn('Col=', Col);
ReadLn;
end.
Uses Crt;
const n=11;
type Vec=array [1..n] of integer;
var F: Vec;
i, Col, el,Rez: integer;
flag: boolean;
begin
for i:=1 to n do
begin
F[i]:=10+random(90);
if (F[i] mod 2 <>0) then Col:=Col+1;
end;
flag:=false;
for i:=1 to n do
if (F[i] mod 2 = 0) then
begin
flag:=true;
el:=F[i];
exit;
end;
Rez:=Col*el;
Writeln(' Rez = ', Rez);
ReadLn;
end.
64=2⁶ значит 6 бит приходится на 1 символ
6*20=120бит
ответ: 120 бит
Файл - это пакет, вместилище
Документ - это содержимое, которое можно положить в пакет
<h2>Задание 1</h2>
Основание - это индекс числа. Основание числа может записываться как N(x), N_x, Nₓ, где N - число, x - основание.
<h3>Ответ</h3>
8
<h2>Задание 2</h2>
1032₈ = 1 · 8³ + 0 · 8² + 3 · 8¹ + 2 · 8⁰ = 512 + 0 + 24 + 2 = 538₁₀
<h3>Ответ</h3>
538
<h2>Задание 3</h2>
Стоит вспомнить, что шестнадцатеричная система счисления состоит из чисел от 0 до 9, а также из букв A, B, C, D, E и F, которые равны 10, 11, 12, 13, 14 и 15 соответственно. Поэтому:
7BC₁₆ = 7 · 16² + 11 · 16¹ + 12 · 16⁰ = 1792 + 176 + 12 = 1980₁₀
<h3>Ответ</h3>
1980
