blob: 6d473be237bb9aa92b641a0c9f3a0c5f4a920add (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
program main;
uses
Vector_Prim.Integer;
type
TVec = Vector_Prim.Integer.TVector;
procedure revvec(var vec: TVec);
var
i: Longint;
j: Longint;
t: Integer;
begin
i := 0;
j := vec.len-1;
while i < j do
begin
t := vec.buf[i];
vec.buf[i] := vec.buf[j];
vec.buf[j] := t;
i := i + 1;
j := j - 1;
end;
end;
function readnum(): TVec;
var
v: TVec;
c: Char;
begin
init(v);
while true do
begin
if eof then
break;
read(c);
if c = #10 then
break;
push_elem(v, ord(c) - ord('0'));
end;
revvec(v);
readnum := v;
end;
function add(a: TVec; b: TVec): TVec;
var
ret: TVec;
carry, len, i, reg: Integer;
na, nb: Integer;
begin
init(ret);
carry := 0;
len := a.len;
if b.len > len then
len := b.len;
for i := 0 to len-1 do
begin
na := 0;
nb := 0;
if i < a.len then
na := a.buf[i];
if i < b.len then
nb := b.buf[i];
reg := na + nb + carry;
carry := reg div 10;
push_elem(ret, reg mod 10);
end;
if carry <> 0 then
push_elem(ret, 1);
add := ret;
end;
procedure printnum(n: TVec);
var
i: Integer;
begin
for i := n.len-1 downto n.len-10 do
write(chr(ord('0') + n.buf[i]));
writeln('');
end;
const
N = 100;
var
nums: Array[1..N] of TVec;
res: TVec;
i: Integer;
begin
init(res);
for i := 1 to N do
nums[i] := readnum();
res := nums[1];
for i := 2 to N do
res := add(res, nums[i]);
printnum(res);
end.
|
