记录编号 69483 评测结果 AAAAATATAA
题目名称 [金陵中学2007] 传话 最终得分 80
用户昵称 Gravatarbhiaibogf 是否通过 未通过
代码语言 Pascal 运行时间 2.977 s
提交时间 2013-09-16 21:43:15 内存使用 1.13 MiB
显示代码纯文本
program messagez;
const
	infile='messagez.in';
	outfile='messagez.out';
var	
	n,m,a,b,i,j,k:longint;
	map:array[1..1005,1..1005]of boolean;
begin
	assign(input,infile);reset(input);
	assign(output,outfile);rewrite(output);
	readln(n,m);
	fillchar(map,sizeof(map),false);
	for i:=1 to m do begin
		readln(a,b);
		map[a,b]:=true;
	end;
	for k:=1 to n do
		for i:=1 to n do
			for j:=1 to n do
				if map[i,k] and map[k,j] then map[i,j]:=true;
	for i:=1 to n do
		if map[i,i] then writeln('T') else writeln('F');
	close(input);close(output);
end.