Question

Помогите написать программу, которая читает числа с 1го файла, переводит их в 8ю систему и записывает в другой. Файл из которого брать числа- codfio.txt

c0c9d91c32832233de598d653f005c59.txt

60f422625b82b6cee9596b2452d78fe0.txt

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

function DecToOctal(n:integer):string;
begin
  var r:string:='';
  while n>=8 do (r,n):=(n mod 8+r,n shr 3);
  Result:=n+r
end;

begin
  WriteAllText('bincod.txt',
      ReadAllText('codfio.txt').ToIntegers
      .Select(t->DecToOctal(t)).JoinIntoString)
end.

27c9c0fa6fbddfbbcca159e4d6e948bc.txt