justfly 2012-10-12 20:24:00
点我顶贴
收藏
删除
program happy;
var
p,y:array[0..305]of integer;
f:array[0..105,0..305]of integer;
n,m,i,j,k,t,s:longint;
begin
readln(n,m);
for i:=1 to 305 do y[i]:=0;
for i:=1 to n do
begin
read(p[i]);
for j:=1 to p[i] do
begin
read(k);
y[k]:=1;
end;
end;
s:=0;
for i:=1 to 305 do
s:=s+y[i];
writeln(s);
end.