сложение двух положительных чисел Pascal ABC

Question

Требуется реализовать подпрограммы считывания, вывода и сложения двух длинных положительных чисел. Хранение длинных чисел следует организовать с использованием массивов.

так надо именно массивом пользоваться

так надо именно массивом пользоваться

Александра Амерьянц · Accepted Answer

Строка — это тот же массив…
Реализуй с помощью строк.
Типа:

function AddStr(S1, S2 : String) : String;
var
D : Byte;
P : Integer;
begin
P := Max(S1.Length, S2.Length);
while S1.Length < P do
S1 := '0' + S1;
while S2.Length < P do
S2 := '0' + S2;

Result := '';
D := 0;
while P > 0 do
begin
D := D + Ord(S1[P]) + Ord(S2[P]) - 96;
Result := Chr(D mod 10 + 48) + Result;
Dec(P);
D := D div 10;
end;
if D > 0 then
Result := Chr(D + 48) + Result;
end;