记录编号 206651 评测结果 AAAAAAAAAA
题目名称 C4炸弹 最终得分 100
用户昵称 Gravatar萌萌哒姐姐 是否通过 通过
代码语言 Pascal 运行时间 0.057 s
提交时间 2015-11-08 20:18:05 内存使用 0.17 MiB
显示代码纯文本
var
  ch:char;
  ans,x,y,r,i,n,px,py:longint;

begin
assign(input,'c4.in');reset(input);
assign(output,'c4.out');rewrite(output);

  readln(x,y,r);
  readln(n);
  for i:=1 to n do
  begin
    read(ch);
    if ch='L' then begin readln; continue; end;
    readln(px,py);
    if sqr(px-x)+sqr(py-y)<=sqr(r) then inc(ans);
  end;
  writeln(ans);

close(input);close(output);
end.