C(16) = 1100(2)
Проверка:
C(16) = 12(10)
1100(2) = 2^3+2^2 = 8+4 = 12(10)
Program N1;
var a,c1,c2,c3: integer;
begin
writeln('Введите число');
read(a);
c1:=a mod 10;
c2:=(a div 10) mod 10;
c3:=(a div 100) mod 10;
writeln('Кол-во сотен = ',c3);
writeln('Кол-во десятков = ',c2);
writeln('Кол-во единиц = ',c1);
end.
1) <span>1011012 - 111112=11100
2) </span>10110(2)+34(8)+15(1)+0(10)+0(10)=56(<span>10)
3) </span><span>1F116=11111000100010110</span>
Var a,b:array[1..25] of integer;
i,min,max:integer;
begin
max:=1;
min:=1;
for i:=1 to 25 do begin
read(a[i]);
read(b[i]);
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
writeln('Лучший - ',a[max],' длина - ',b[max]);
writeln('Худший - ',a[min],' длина - ',b[min]);
<span>end.</span>