Solução em Pascal do Problema 9

program SomaGrande; {$R+}

const NumMaxAlg=100;
type indices=0..NumMaxAlg;
     digitos=0..9;
     numGrande=array[indices] of digitos;
var n, i : Integer;
    num1, num2, somaNum :numGrande;
    vaiUm:0..1;
    somaAlg:0..19;

begin
 readLn(n);
 for i:=1 to n do read(num1[i]);
 readLn;
 for i:=1 to n do read(num2[i]);
 readLn;
 vaiUm:=0;
 
 for i:=n downto 1 do
  begin
   somaAlg:=num1[i]+num2[i]+vaiUm;
   somaNum[i]:=somaAlg mod 10;
   vaiUm:=somaAlg div 10
 end;

 somaNum[0]:=vaiNum;
 for i:=0 to n do write(somaNum[i]);
 writeLn
end.


Lista de Problemas

História da Computação | Listas de Exercícios | Problemas Resolvidos | macmulti@ime.usp.br