Придумайте пару понятий по диаграмме,составь суждение по ней,то есть составь текстовую модель отношения между этими понятиями,(а дальше там большой круг а внутри поменьше)
Большой круг- то множество, а маленький- подмножество,.
Например в городе есть школа- это большой круг, в школе есть 1классы- это маленький круг, в круге 1 классы заключен еще более маленький круг- 1а класс и т.д.
Var s : String; n : Integer; Function IncS(a : String) : String; Begin a[Length(a)]:=Chr(Ord(a[Length(a)])+1); If a[Length(a)]>'D' then IncS:=IncS(Copy(a,1,Length(a)-1))+'A' else IncS:=a; end; Function Check(a : String) : Boolean; Begin Check:=False; If (Pos('A',a)>0) then Begin Delete(a,Pos('A',a),1); If (Pos('A',a)>0) then Check:=True; end; end; Begin s:=''; n:=0; While s<>'' do Begin { Writeln(s); } If Check(s) then Inc(n); s:=IncS(s); end; Writeln(n); end.
Var s : String; n : Integer; Function IncS(a : String) : String; Begin a[Length(a)]:=Chr(Ord(a[Length(a)])+1); If a[Length(a)]>'D' then IncS:=IncS(Copy(a,1,Length(a)-1))+'A' else IncS:=a; end; Function Check(a : String) : Boolean; Begin Check:=False; If (Pos('A',a)>0) then Begin Delete(a,Pos('A',a),1); If (Pos('A',a)>0) then Check:=True; end; end; Begin s:=''; n:=0; While s<>'' do Begin { Writeln(s); } If Check(s) then Inc(n); s:=IncS(s); end; Writeln(n); end.
Большой круг- то множество, а маленький- подмножество,.
Например в городе есть школа- это большой круг, в школе есть 1классы- это маленький круг, в круге 1 классы заключен еще более маленький круг- 1а класс и т.д.
Если что не правильно ссори_