Сложить два 250-ти разрядных числа.

[anasttb]

Через строки.

[p51x]

и? как пробовали? какие ошибки выдал компилятор?

[Serge_Bliznykov]

Сообщение от anasttb

Через строки.

например, http://www.programmersforum.ru/showp...6&postcount=16

см.
function Summa(x, y: string): string;

[SASFM]

Сообщение от anasttb

Через строки.

var s1,s2,sum: string;
    cs1,cs2,ost,x,i:integer;
begin
  readln(s1);
  read(s2);
  for i:=length(s1) downto 1 do
  begin
    cs1:=strtoint(s1[i]);
    cs2:=strtoint(s2[i]);
    x:=(cs1+cs2+ost) mod 10;
    ost:=(cs1+cs2+ost) div 10;
    sum:=inttostr(x)+sum;
  end;
  write(sum);
end.

Ну как то так

Работает, если длина строки ровны

[Аватар]

Работает, если длина строки ровны

А '9' и '9' пробовал сложить? А строки не равной длины можно слева нулями выровнять

[newerow1989]

function SlozhenieChisel(chislo1, chislo2: string): string;
 var i, dlina: integer;
     p: array of byte;
 begin
    dlina:=Length(chislo1);
    If Length(chislo2)>dlina then
       dlina:=Length(chislo2)+1 else
       dlina:=dlina+1;
    While Length(chislo1)<dlina do
       Insert('0', chislo1, 1);
    While Length(chislo2)<dlina do
       Insert('0', chislo2, 1);
    SetLength(p, dlina);
    Result:='';
    For i:=0 to dlina-1 do
       p[i]:=0;
    For i:=dlina downto 2 do
    begin
       p[i-1]:=p[i-1]+StrToInt(chislo1[i])+StrToInt(chislo2[i]);
       If p[i-1]>=10 then
       begin
          p[i-2]:=p[i-1] div 10;
          p[i-1]:=p[i-1] mod 10;
       end;
    end;
    For i:=0 to dlina-1 do
       Result:=Result+IntToStr(p[i]);
    While (Result<>'') and (Result[1]='0') do
       Delete(Result, 1, 1);
 end;

http://newerow1989.narod.ru/publ/slo...hisel/1-1-0-27

[SASFM]

Сообщение от Аватар

А '9' и '9' пробовал сложить? А строки не равной длины можно слева нулями выровнять

var s1,s2,sum: string;
    cs1,cs2,ost,x,i,d,L1,L2:integer;
begin
  readln(s1);  L1:=length(s1);
  read(s2);    L2:=length(s2);
  d:=abs(L1-L2);
  if L1<L2 then s1:=StringOfChar('0',d)+s1;
  if L2<L1 then s2:=StringOfChar('0',d)+s2;
  for i:=Length(s1) downto 1 do
  begin
    cs1:=strtoint(s1[i]);
    cs2:=strtoint(s2[i]);
    x:=(cs1+cs2+ost) mod 10;
    ost:=(cs1+cs2+ost) div 10;
    sum:=inttostr(x)+sum;
  end;
  sum:=inttostr(ost)+sum;
  if sum[1]='0' then delete(sum,1,1);
  write(sum);
end.