Паскаль - перевод в восьмеричную и шестнадцатеричную системы счисления

[Tattoquardas]

Изучаю Паскаль всего-лишь месяц, помогите написать прогу!

Программа должна читать последовательность 0 и 1 длинной до 80, задающую представление числа m, и находить последовательность символов, соответствующую:
1) восьмеричную систему;
2) шестнадцатеричную.

проще говоря, написать прогу, которая переводит числа из двоичной в восьмеричную и шестнадцатеричную системы...

и вторая:
Расстояние между множествами точек - это расстояние между наиболее близко расположенными точками этих множеств. Найти расстояние между двумя заданными множествами точек на плоскости.

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Alex11223]

Помочь-то как? Под помощью подразумевается, что вы пытаетесь что-то сделать сами, показываете код, рассказываете, что не получается, а не просто выкладываете задание.

Изучаю Паскаль всего-лишь месяц,

Если кто-то даст готовое решение, вряд ли это как-то поможет в изучении.

[Tattoquardas]

в данном случае, я даже не знаю, как приступить к написанию этой этой программы. Теоретически, к примеру, первое задание, сделать могу, то есть, перевести числа из системы в систему, а вот прогу написать - слегка проблема.
Если конкретнее - не знаю, как сделать так, чтобы система делила двоичное число по три цифры и переводила их в восьмеричную.
с шестнадцатеричной - еще сложнее.

[hiho]

Сообщение от Tattoquardas

Если конкретнее - не знаю, как сделать так, чтобы система делила двоичное число по три цифры и переводила их в восьмеричную. С шестнадцатеричной - еще сложнее.

Считываете данные в текстовую переменную и считываете по 3(4) символа с конца строки.

[Azamat0]

А какой код использовать чтобы считывать по 3(4) символа?

[Plague]

первая задача:

const d='0123456789ABCDEF';
var s,c,s1,s2:string;
    a,b,k,i,j,x,y:integer;
begin
  writeln('Введите число в двоичной системе счисления: ');
  readln(s);
  a:=length(s); 
  for k:= 3 to 4 do  
    begin
      b:=0;
      s1:=s;
      s2:='';
      if a mod k<>0 then b:=k-a mod k;
      for i:=1 to b do s1:='0'+s1;
      for i:=1 to length(s1) div k do
        begin
          c:=copy(s1,i*k-k+1,k);
          x:=ord(c[k])-48;
          y:=1;
          for j:=length(c)-1 downto 1 do
            begin
              y:=y*2;
              x:=y*(ord(c[j])-48)+x;
            end;  
          s2:=s2+d[x+1];
        end;
      writeln(s2);       
    end;    
end.