PersonalCorpus 版 (精华区)

158180 04:48:24 9 Mar 2002
Bozhang,HIT,P.R.China 1048 Pascal Accepted 0.891 sec 553K


var
    a:array[1..500000] of byte;
    i,j,k,n:integer;
begin
    readln(n);
    for i:=1 to n div 2 do begin
        readln(j,k);
        a[i]:=(j+k)*10;
        readln(j,k);
        a[i]:=a[i]+j+k;
    end;
    if n mod 2=1 then begin
        readln(j,k);
        a[(n div 2)+1]:=j+k;
        if a[(n div 2)+1]>9 then begin
            a[(n div 2)+1]:=a[(n div 2)+1]-10;
            inc(a[(n div 2)]);
        end;
    end;
    for i:=n div 2 downto 2 do
        while a[i]>99 do begin
            a[i]:=a[i]-100;
            inc(a[i-1]);
        end;
    for i:=1 to n div 2 do begin
        if a[i]<10 then write(0);
        write(a[i]);
    end;
    if n mod 2=1 then write(a[(n div 2)+1]);
end.