题解: 傻逼模拟题 果断的复制了题解(还没有c++题解?) 代码: program p2509; type arr=array[..] of boolean; var tot:longint; s:array[..] of ansistring; b:arr; procedure init; begin tot:=; while not eof do begin inc(tot); readln(s[tot]); end; end; procedure warn1(n:longint;c:cha…