Помогите, пожалуйста, найти ошибку в решении задачи!

← →
Витян © (2007-05-08 21:33) [0]

Задача:
Входные данные:
В единственной строке входного файла INPUT.TXT записаны три натуральных числа через пробел. Каждое из чисел не превышает 10100.
Выходные данные

В выходной файл OUTPUT.TXT нужно вывести одно целое число — максимальное количество монет, которые может взять вождь.
мое решение:

const
MaxN = 101;
type
TNumber = array[1..MaxN] of byte;
var
a,b,c: TNumber;

procedure ReadNumber(var a: TNumber);
var
i,t,j: byte;
c: char;
begin
FillChar(a,sizeof(a),0);
i:=0;
while not eoln do begin
read(c);
if (c=#32) then break;
inc(i);
a[i]:=ord(c);
end;
j:=1;
while j<i do begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
inc(j);
dec(i);
end;
end;

function max(a,b: TNumber): TNumber;
var
i: byte;
begin
for i:=MaxN downto 1 do
if a[i]>b[i] then begin
result:=a;
exit;
end;
result:=b;
end;

Procedure PrintNumber(a: TNumber);
var
i,len: byte;
begin
len:=1;
for i:=MaxN downto 1 do
if a[i]<>0 then begin
len:=i;
break;
end;
for i:=len downto 1 do write(a[i]-48);
end;

begin
reset(input,"input.txt");
rewrite(output,"output.txt");
ReadNumber(a);
ReadNumber(b);
ReadNumber(c);
PrintNumber(max(c,max(a,b)));
end.

На третьем тесте тестируюшая система выдает Wrong Answer.

← →
Витян © (2007-05-08 21:38) [1]

Прошу прощения, каждое из чисел не превышает 10^100.

← →
Johnmen © (2007-05-08 21:43) [2]

Летят два крокодила. Один зелёный, другой на запад. Сколько лет моему ёжику?

← →
Витян © (2007-05-08 21:45) [3]

> Johnmen

С такими шутками только в аншлаг идти :)

> записаны три натуральных числа через пробел.
>
> нужно вывести одно целое число — максимальное количество монет, которые может взять вождь.
>

И сколько лет водителю? :)))

я вообще такое не одабриваю
сам тест не может пройти ему тут решат он пройдёт - это как-то несправедливо, как-то не по-пацански:):):)

Помогите, пожалуйста, найти ошибку в решении задачи! Найти похожие ветки