Tính tổng của 2 số cực lớn

[gaunhoiboom]

Tính tổng của 2 số cực lớn(mỗi số không ít hơn 45 chữ số)

[GinVNSEO]

answer

bài này cũng đơn giản, thử code của tui nhé !

program tinh_tong_so_cuc_lon;
uses crt;
var s1,s2,s,kq:string;
    a,b,i,d,n,e:integer;
BEGIN
clrscr;
write('nhap so hang thu 1 :');readln(s1);
write('nhap so hang thu 2 :');readln(s2);
if length(s1)<length(s2) then
   for i:=1 to length(s2)-length(s1) do
       s1:='0'+s1;
if length(s1)>length(s2) then
   for i:=1 to length(s1)-length(s2) do
       s2:='0'+s2;
n:=0;
for i:=1 to length(s1) do
    begin
         val(s1[i],a,e);
         val(s2[i],b,e);
         d:=(a+b+n) mod 10;
         n:=(a+b+n) div 10;
         str(d,s);
         kq:=s+kq;
    end;
writeln('tong 2 so hang la :',kq);
readln;
END.

code này thiếu phần điều kiện của chuỗi số (để nhập chuỗi không có kí tự nào không phải chữ số) mình làm biếng quá ! Các bạn tự thêm vào nhé [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]