var s:string;
k:byte;
begin
readln(s);
k:= <span>length(s);
write(k)
end.</span>
<span>а) 111000111 (2) = 455 (10)
б) </span><span>100011011 (2) = 283 (10)
в) </span><span>1001100101 (2) = 613 (10) и 1001 (2) = 9 (10)
г) </span><span>1001001 (2) = 73 (10) и 11 (2) = 3 (10)</span>
В двоичной системе счисления дробного числа быть не может
Задачу удобно решать с помощью кругов Эйлера (см. прилагаемый файл).
К1+К2+К3 = 15000
К2 = 8000
К2+К3 = 12000
К1 = 15000-12000 = 3000
К1+К2 = 3000+8000 = 11000
Ответ: 11000
Заведём ещё один массив и будем в него записывать, правда ли, что в массиве есть элементы, равные данному, и текущий элемент - первый из них. Затем выведем все элементы, для которых это оказалось правдой.
Pascal
var
i, j, n: integer;
flag: boolean;
a: array[1..10000] of integer;
b: array[1..10000] of boolean;
begin
read(n);
for i := 1 to n do
begin
read(a[i]);
b[i] := true;
end;
b[n] := false;
for i := 1 to n - 1 do
if b[i] then
begin
flag := true;
for j := i + 1 to n do
if a[i] = a[j] then
begin
flag := false;
b[j] := false;
end;
if flag then
b[i] := false;
end;
for i := 1 to n do
if b[i] then
write(a[i], ' ');
end.
Ответы смотри в приложенном файле.