Олимпиадная задача. Операции с системами чисел.

[clasterit]

del. del. del. del. del. del.

[clasterit]

del. del. del. del. del. del.

[clasterit]

del. del. del. del. del. del.

[IT-man]

{осталось прикрутить файлы}
1 вроде

{осталось прикрутить файлы}
var Data:real;
count,i:integer;
res:string;
function DecToBin(N: Integer): String;
const Binary : array[0..1] of Char = ('0','1');
var Res : String;
begin
Res := '';
while N > 0 do begin
Res := Binary[N mod 2] + Res;
N := N div 2;
end;
DecToBin := Res;
end;
begin
data:=5.56;
count:=5;
res:='';
res:=res+DecToBin(trunc(Data))+'.';
data:=data-trunc(data);
for i:=1 to count do
begin
data:=data*2;
case trunc(data) of
1: res:=res+'1';
0: res:=res+'0';
end;
data:=data-trunc(data);
end;
writeln(res);
readln;
end.

результат

101.10001

для 2

{фунция перевода любой сс в Dec}
function ToDec(n:string;r:longint):longint;{(с)Inadequate}
var
  m,i:longint;
const
  digit:string[16]='0123456789ABCDEF';
begin
  m:=0;
  while n[1]='0' do
    delete(n,1,1);
  for i:=1 to length(n) do
    m:=m*r+pos(n[i],digit)-1;
  ToDec:=m;
end;