比赛 20110730 评测结果 C
题目名称 线段 最终得分 0
用户昵称 lizhe 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2011-07-30 12:53:46
显示代码纯文本
program line;
var
  i,j,n,m,t,a,b,c:longint;
  r0,r1:array[0..100000]of longint;
procedure 
  
procedure init;
begin
  for i:=1 to m do
  begin
    read(a,b,c);
	if c=0 then
	begin
    end	
  end
end;

procedure print;
begin

end;

procedure main;
begin
  assign(input,'line.in');
  reset(input);
  assign(output,'line.out');
  rewrite(output);
  read(t);
  repeat
    dec(t);
	init;
    print
  until t=0;
  close(input);
  cloes(output)
end;

begin
  main
end.