Поиск по этому блогу

вторник, 25 апреля 2017 г.

Сумма длинных чисел

Даны две строки, в каждой из которых содержится длинное натуральное число. В третьей строке сформировать их сумму. (30 баллов) 
Задача городской олимпиады 2005 года.


Program z3;
var a,b,c,z:string;
       i,m,n,k,u,h,d:integer;
begin
            writeln(‘Введите первое число’);
            readln(a);
            writeln(‘Введите второе число’);
            readln(b);
            m:=length(a);
            n:=length(b);
            if m<>n then
                        if m>n then
                                   begin
                                               k:=m;
                                               for i:=1 to m-n do
                                                           b:=’0’+b;
                                   end
                        else
                                   begin
                                               k:=n;
for i:=1 to n-m do
            a:=’0’+a;
                                   end;
            u:=0;
            c:=’’;
            for i:=k downto 1 do
                        begin
                                   val(copy(a,i,1),m,h);
val(copy(b,i,1),n,h); 
d:=m+n+u;
if d>9 then
            begin
                       u:=1;
                       d:=d mod ;
            end
else
            u:=0;
str(d,z);
c:=z+c;
                        end;
if u<>0 then
begin
str(u,z);
c:=z+c;
                        end;
writeln(c);

end.

Комментариев нет:

Отправить комментарий