Question

Напишите программу в Паскале и объясните, как это делается

Сложить два 15-ти значных целых числа. При этом используют тип integer. Т.е. реализовать поэлементное сложение значений двух массивов с переносом разряда.

 

Answer 1

const n=15;
var a,b,c:array[0..n] of integer;
s_a,s_b:string;
i:integer;
Begin
  readln(s_a);
  readln(s_b);
  while length(s_a)<n do s_a:='0'+s_a;
  while length(s_b)<n do s_b:='0'+s_b;
 
  for i := n downto 1 do begin
    a[i]:=strtoint(s_a[i]);
    b[i]:=strtoint(s_b[i]);
    c[i]:=c[i]+a[i] + b[i];
    c[i-1]:=c[i] div 10;
    c[i]:=c[i] mod 10;
  end;

  writeln;
  for i:= 0 to n do write(a[i]);
  writeln;
  for i:= 0 to n do write(b[i]);
  writeln;
  for i:= 0 to n do write(c[i]);
End.