Перевод из 2 в 8 на паскале

[Terti]

Помогите с кодом для перевода! Нельзя использовать строковые функции не массивы.

[Serge_Bliznykov]

Нельзя использовать строковые функции не массивы.

если нельзя использовать ни строки, ни массивы, тогда откройте тайну - как Вы собираетесь вводить/задавать число в двоичной системе?!
Или вводить/задавать исходное число надо в десятичной системе счисления?

а вообще, для решения задачи надо из двоичного числа выделять справа по три символа (например, с помощью сдвига двоичного числа вправо) и полученное число преобразовать в восьмеричное число от 0 до 7. и всё...

[Terti]

я вот тоже самое спросил у преподавателя!
вот что у меня вышло правда очень глупо:

program te_1;
uses
crt;
var
a,k,p,u,b,l,i,q,w,e:integer;

begin

readln(a);
b:=a;
while b<>0 do begin
 p:=b mod 1000;
 K:=K+1;
 b:=b div 1000;
 end;
// writeln('k=',k);
  if k=1 then
 case a of
 000:write('0');
 001 :write('1');
 010  :write('2');
 011   :write('3');
 100  :write('4');
 101  :write('5');
 110 :write('6');
 111 :write('7') ;
 end;
 
   if k=2  then   begin
     p:=a mod 1000 ;
  k:=a div 1000;
    case k of
 000:write('0');
 001 :write('1');
 010  :write('2');
 011   :write('3');
 100  :write('4');
 101  :write('5');
 110 :write('6');
111 :write('7')
 end;
 case p of
 000:write('0');
 001 :write('1');
 010  :write('2');
 011   :write('3');
 100  :write('4');
 101  :write('5');
 110 :write('6');
111 :write('7')
 end;
end;


  if k=3  then   begin
     q:=a mod 1000 ;
  w:=a div 1000000;
   e:=a div 1000 mod 1000;
    case w of
 000:write('0');
 001 :write('1');
 010  :write('2');
 011   :write('3');
 100  :write('4');
 101  :write('5');
 110 :write('6');
111 :write('7')
 end;
 case e of
 000:write('0');
 001 :write('1');
 010  :write('2');
 011   :write('3');
 100  :write('4');
 101  :write('5');
 110 :write('6');
111 :write('7')
 end;
  case q of
 000:write('0');
 001 :write('1');
 010  :write('2');
 011   :write('3');
 100  :write('4');
 101  :write('5');
 110 :write('6');
111 :write('7')
 end;
end;



end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.