Контрольная работа: Знаходження кусково-постійних конфігурацій множин
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
#include "stdio.h"
int n=1, Pn=0;
int f(int n)
{
int r=1;
for(int i=1;i<=n;++i)
{
r=r*i;
}
return r;
}
int A(int n, int k)
{
return f(n)/f(n-k);
}
void __fastcall TForm1::Button1Click(TObject *Sender)