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.
Скачать вложение Текст (TXT)