t0=10;
c=1;
x[t_,n_]:=(n c (t0-t))^(-1/n);
bild1=Plot[x[t,0.2],{t,0,10},DisplayFunction->Identity];
bild2=Plot[x[t,0.4],{t,0,10},DisplayFunction->Identity];
bild3=Plot[x[t,0.6],{t,0,10},DisplayFunction->Identity];
bild4=Plot[x[t,0.8],{t,0,10},DisplayFunction->Identity];
bild5=Plot[x[t,1],{t,0,10},DisplayFunction->Identity];
bild6=Plot[x[t,2],{t,0,10},DisplayFunction->Identity];
bild7=Plot[x[t,3],{t,0,10},DisplayFunction->Identity];
abb=Show[{bild1,bild2,bild3,bild4,bild5,bild6,bild7},
PlotRange->{{8,10},{0,10}},AxesLabel->{"t","x"},
ImageSize->{400,300},DisplayFunction->$DisplayFunction];