Помогите написать программу, которая читает числа с 1го файла, переводит их в 8ю систему и записывает в другой. Файл из которого брать числа- codfio.txt
Приложения:
Ответы на вопрос
Ответил Аноним
0
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.
Внимание! Если программа не работает, обновите версию!
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.
Приложения:
Ответил Аноним
0
Во вложении - полученный файл bincod.txt
Новые вопросы