8=2³, поэтому достаточно заменить каждые три двоичные цифры одной восьмеричной. Группы формируем в обоих направлениях, начиная от десятичной точки. Если в самой левой группе будет меньше трех разрядов, дописываем слева недостающие нули. Для самой правой группы дописываем нули справа.
11011.01₂ = 11 011 . 01₂ = 011 011 . 010₂ = 33.2₈
Var s:string;
r:real;
i,j,n:integer;
begin r:=0;
readln(s);
for i:=1 to length(s) do begin n:=0; for j:=1 to length(s) do begin
if s[i]=s[j] then inc(n);
end;
r:=r+1/n;
end;
writeln('количество различных букв = ', r:1:0);
end.
2.
1) if b<>0 then
begin
y:=-c/b ;
writeln('(0;',y,')');
end
else writeln('такой точки нет');
2) if a<>0 then
begin
y:=-c/a ;
writeln('(',x,'0)');
end
else writeln('такой точки нет');
3) 4) аналогично для коэффициентов <span> d, e, f</span>
5) if (bd-ae)<>0 then
begin
x:=(-f*b+e*c)/(b*d-a*e);
y:=(-c-a*x)/b;
writeln('(',x,';',y,')');
end
else writeln('не пересекаются');