Длинная арифметика Опции

[Reflex]

Не могли бы ли вы мне помочь (факю читал не то что нужно). Мне нужно : реализация длинной арифметики на массиве цифр этого числа, нужно превеод интеджера в длинную арифметику, остаток от деления и вывод этого числа.
например Inttolong(a:integer):integer;
modlong(num1,num2:long):long;
write(long);
Спасибо большое, если поможите.

P.S. Пишу не своего компьютера

[volvo]

Reflex, я еще не успел просто

Смотри... Вот так вычисляется НОК (по-английски LCM: Least Common Multiplier) для обычных чисел типа Integer (для проверки - запусти эту программу и посмотри, что она выдает):

{ GCD - это Greatest Common Divider = НОД }
function GCD (A: integer;  B: integer): integer;
begin
    while (a <> 0) and (b <> 0) do
       if a >= b then
         a := a mod b
       else
         b := b mod a;
    GCD := a + b;
end;

function LCM (A: integer;  B: integer): integer;
begin
     LCM := a * b div GCD (a, b)
end;

begin
  A := 12;
  B := 23;
  R := LCM(A, B);
  writeln('НОК = ', R);
end.

Совершенно аналогично вычислим его для длинных чисел, заменив все операции на процедуры:

uses longmath;

procedure GCD (A: TNum;  B: TNum; var res: TNum);
var
  Zero, DRes, MRes, T: TNum;
begin
  InToTNum(0, Zero);
  while (Cmp(a, Zero) = '>') and (Cmp(b, Zero) = '>') do
       if Cmp(a, b) in ['>', '='] then begin

         Dvd(a, b, DRes);
         Mul(DRes, b, MRes);
         Sub(A, MRes, T);
         A := T;

       end
       else begin

         Dvd(b, a, DRes);
         Mul(DRes, a, MRes);
         Sub(b, MRes, T);
         B := T;

       end;

  Add(a, b, res);
end;

function LCM (A: TNum;  B: TNum; var res: TNum);
var T, MRes: TNum;
begin
     Mul(a, b, MRes);
     GCD(a, b, T);
     Dvd(MRes, T, res);
end;

var
  A, B, R: TNum;
begin
  InputLong(A); { для проверки введи 12}
  InputLong(B); { здесь - для проверки - 23 }
  LCM(A, B, R);
  Write('NOD = ');
  PrintLong( r ); { ... и сравни результат... }
end.

Неужели Volvo узнав что я девушка, передумал мне помочь

С чего ты взяла? Не было этого никогда, чтоб я из-за пола человека отказывался ему помогать...