Контрольная работа: Знаходження кусково-постійних конфігурацій множин

int n=Edit1->Text.ToInt(), Pn=A(n,2);

for(int i=0;i<=n/2;++i)

{

Pn+=A(n,i)*A(n-i,i);

}

AnsiString as = "Відповідь: "+IntToStr(Pn);

ShowMessage(as);

}

//---------------------------------------------------------------------------

Приклад