Скачать: CL | DM;

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

← →
Витян ©   (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

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

---

← →
McSimm ©   (2007-05-08 21:46) [4]

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


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

---

← →
default ©   (2007-05-08 21:51) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c