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