比赛 20110725 评测结果 AAAAAAAATT
题目名称 失落的猴子 最终得分 80
用户昵称 ybh 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2011-07-25 08:30:48
显示代码纯文本
program lostmonkey;
var
  a:array[0..1000,0..1000] of longint;
  n,m,que,i,j,t,x1,x2,y1,y2,c:longint;
begin
  assign(input,'lostmonkey.in');
  reset(input);
  assign(output,'lostmonkey.out');
  rewrite(output);
  
  readln(n,m,que);
  fillchar(a,sizeof(a),0);
  for t:=1 to que do
  begin
    readln(x1,y1,x2,y2,c);
    for i:=x1 to x2 do
      for j:=y1 to y2 do
        a[i,j]:=c;
  end;
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]);
    writeln;
  end;
  
  close(input);
  close(output);
end.