比赛 普及组2016模拟练习4 评测结果 AAAAAAAATT
题目名称 查字典 最终得分 80
用户昵称 forewing 运行时间 2.677 s
代码语言 Pascal 内存使用 2.65 MiB
提交时间 2016-11-17 20:32:07
显示代码纯文本
program scanword;
const
	name='scanword';
var
	maps:array[0..10001]of string;
	mapn:array[0..10001]of longint;
	i,j,r1,r2,n,m:longint;
	r3:string;
begin
	assign(input,name+'.in');
	reset(input);
	assign(output,name+'.out');
	rewrite(output);
	readln(n);
	for i:=1 to n do
	begin
		readln(maps[i]);
		readln(mapn[i]);
	end;
	readln(m);
	for i:=1 to m do
	begin	
		readln(r3);
		for j:=1 to n do
			if maps[j]=r3
			then
			begin
				writeln(mapn[j]);
				break;
			end;
	end;
	close(output);
end.