| 比赛 | 防止浮躁的小练习v0.7 | 评测结果 | EEEEEEEEEE |
|---|---|---|---|
| 题目名称 | 拦截导弹 | 最终得分 | 0 |
| 用户昵称 | Ten.X | 运行时间 | 0.001 s |
| 代码语言 | Pascal | 内存使用 | 0.17 MiB |
| 提交时间 | 2016-10-27 18:29:35 | ||
var s:ansistring;ss:string;n,i:longint;
begin
assign(input,'subsequence.in');reset(input);
assign(output,'subsequence.out');rewrite(output);
read(s);
readln(n);
for i:=1 to n do
begin
readln(ss);
if pos(ss,s)<>0 then write('Yes') else write('No');
end;
close(input);close(output);
end.