Question

Помогите пожалуйста!!!! Нужно сделать программу перевода чисел из 8-ой системы счисления в 2-ую систему счисления...На Pascal

226614b91a107b9413add38ba2ab14a0.pas

Answer 1

function f8t2(s8:string):string;
const
  m:array['0'..'7'] of string=
      ('000','001','010','011','100','101','110','111');
  m1:array['1'..'7'] of string=
      ('1','10','11','100','101','110','111');
var
  s:string;
  i:integer;
begin
  s:=m1[s8[1]];
  for i:=2 to Length(s8) do s:=s+m[s8[i]];
  f8t2:=s
end;

var
  s:string;
begin
  Write('Введите восьмеричное число: '); Readln(s);
  Writeln('В двоичной системе: ',f8t2(s))
end.

Тестовое решение:
Введите восьмеричное число: 15740
В двоичной системе: 1101111100000