Реферат: Длинная арифметика

А[1]

А[2]

А[3]

ch

2

516

238

0

7

2

516

380

2

1

160

385

2

После этого остается только добавить текущую (считанную в ch) цифру "длинного" числа к А[1] и изменить значение А[0].

В конечном итоге процедура должна иметь следующий вид:

Procedure ReadLong(Var A : Tlong);

Var ch : char; i : Integer;

Begin

FillChar(A, SizeOf(A), 0) ;

Read(ch);

While Not(ch In ['0'..'9']) Do Read(ch);

{пропуск не цифр во входном файле}

While ch In ['0'..'9'] Do

Begin

For i := A[0] DownTo 1 Do