сложение огромных чисел

[H_T_V]

подскажите пожалуйста, можно ли средствами паскаля сложить два числа длиною приблизительно 2000 символов. если да, то как?

[AVer]

Могу предложить вот такой кривоватый алгоритм:

Сначала надо уровнять их по длине. (Прим. 123 и 56 -> 1 кинуть в буфер)
Потом брать по N символов и складывать. Если Длина результата превышает N, то все что лишнее Прибавляется к следующему куску в N символов. И вот так вот по кускам вывести в строку...

-------------
Пример
1661564874564678 + 4897453427489 // Буфер1 = 166
1564874564678 + 4897453427489 // Пусть N = 5
1) 64678 + 27489 = 92167 // Добавляем в строку-ответ 92167
2) 48745 + 74534 = 123279 // Добавляем в строку-ответ 23279, 1 в Буфер2.
3) 156 + 489 + 1(Буф2) = 646 // Добавляем в строку-ответ 646 и 166
В итоге в ответе 1666462327992167

[Сильванович Михаил]

А вот библиотечка RSA (содранная с C#)

[Alar]

вообще если стандартными средствами не складывается. то нужно реализовать что-то типа сложения столбиком, как в 5 классе... хранить ответ в строке. и промежуточные действия можно тоже в строке.

[H_T_V]

спасибо огромное)))

[AVer]

Несмотря на то, что H_T_V уже отписалась, выложу програмную реализацию моего алгоритма:

var Buf1,s1,s2,rez,xs:string;
i,x,y,Buf2:integer;

begin
readln(s1);
readln(s2);
if length(s1) > length(s2) then
begin
Buf1:=Copy(s1,1,length(s1)-length(s2));
Delete(s1,1,length(s1)-length(s2));
end else
if length(s1) < length(s2) then
begin
Buf1:=Copy(s2,1,length(s2)-length(s1));
Delete(s2,1,length(s2)-length(s1));
end;

for i:=length(s1) downto 1 do
begin
Val(s1[i],x,x);
Val(s2[i],y,y);
x:=x+y+Buf2;
Buf2:=0;
if x div 10 <> 0 then
begin
x:=x mod 10;
Buf2:=1;
end;
Str(x,xs);
Rez:=xs+Rez;
end;

if Buf2 <> 0 then
begin
Val(buf1[length(buf1)],x,x);
Delete(Buf1,Length(buf1)-1,1);
x:=x+Buf2;
Str(x,xs);
Rez:=xs+rez;
end;

Rez:=Buf1+Rez;
Writeln(Rez);
ReadLn;
end.

Alar, по сути этот алгоритм и я вляется сложением "столбиком".

[H_T_V]

AVer, у меня получалось что-то похожее... но довести до ума оказалось тяжело, так что спасибо))) пойду разбираться в вашем решении