OJ Board

I have submited a lot of code for this problem but i still got WA. Any idea? I have read all of the topic before.

[pascal]
(* @begin_of_source_code *)
program p105(input,output);
{$IFDEF ONLINE_JUDGE}
type tint = integer;
{$ELSE}
type tint = longint;
var input : text;
{$IFDEF FILE}
var output ...

I have read all of the topic which is posted before. And i still get TLE. I use BFS to solve this problem. Any idea?

[pascal]
(* @begin_of_source_code *)
program p104(input,output);
{$IFDEF ONLINE_JUDGE}
type tint = integer;
{$ELSE}
type tint = longint;
var input : text;
{$IFDEF FILE}
var output ...

I have read almost all of the topic in this forum, and i got a lot of information from this forum. I have tested my code in some test case which is provided by the previous topic but i still got Wrong Answer. I really don't know how to solve this and i have thought hard for this problem. I really ...

i have 2 problem's

Problem 100 ( Time limit exceed)

--------------------------------------

(* @JUDGE_ID: 26310AM 100 Pascal *)
(* @begin_of_source_code *)
program p100(input,output);
var i, j, k, total, max : integer;
procedure detect(number : longint;var total : integer);
begin
inc(total);
if ...