<span>для кодирования одного из цветов плиты служит двоичный код 001. сколько цветов содержит политра??)) 3</span>
<span>Far Manager</span> - <span>системное программное обеспечение</span>
<span>Microsoft Excel</span> - <span>прикладное программное обеспечение</span>
1000011110101= 4341
1010010111011=5307
456=111001000
24=11000
последнее чет неполучается
var a: array[0..9] of Integer;
i,k,b,c: Integer;
begin
for i:=0 to 9 do
begin
a[i]:=Random(100);
writeln(i+1,' число: ',a[i]);
end;
for i:=0 to 9 do
begin
for k:=0 to 9 do
begin
if a[i]<a[k] then
begin
b:=a[i];
c:=a[k];
a[i]:=c;
a[k]:=b;
k:=0;
end;
end;
end;
writeln('Числа по возрастанию:');
for i:=0 to 9 do
writeln(i+1,' число: ',a[i]);
begin
end;
end.
тут немного больше чем надо