Написать функцию перевода десятичного числа в 8-ю систему счисления. код (программу) в delphi 7

По дате

По рейтингу

user_24751000

Новичок

7лет

Ты издеваешься чтоль?! Я тебе уже дал решение! Кидай компоненты на форму вставляй код и два щелчка по кнопе. Всё заработает. https://otvet.mail.ru/answer/1906141257

jurijus_zaksas

Искусственный Интеллект

7лет

Вот ты упоротый... Ну держи:

function IntToOct(a: UINT):UINT64;
var p:UINT64;
begin
p:=1;
Result:=0;
while a>0 do
begin
Result:=Result + a mod 8 * p;
p:=p*10;
a:= a div 8;
end;
end;