Отсутствует в 8ричной и 2чной
не один ответ не соответствует этому полностью
частично а
1. 4*4 - 15 = 1 Кбайт
2. 1790 байт = 17,5 Кбайт; 4*5 - 17,5 = 2,5 Кбайт
3. 4*5 - 20 = 0 Кбайт
Итого: 1+2,5 = 3,5 Кбайт
int a = x;
int b = y;
int c;
c = a;
a = b;
b = c;
1.Присвоим переменной C значение из переменной a.
2.Присвоим a значение b.
3.Присвоим b значение переменный C.
Const n=10;
Var a:array[1..n] of integer;
i,k,j:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(a[i],' ');
end;
Writeln;
For i:=1 to n do
Begin
If a[i] mod 3=0 then
Write(a[i],' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (a[j] > a[j+1]) then
begin
k:= a[j];
a[j] := a[j+1];
a[j+1] := k;
end;
end;
writeln;
for i:=1 to n do
write(a[i],' ');
readln;
<span> end.</span>
Нарисовать алгоритм?Или написать по пунктам?