Т.С.П.П / Махинации с ТСПП / Махинации с ТСПП / ТПСПП / PR_3 / С / Unit1

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

#include <vcl.h>
#pragma hdrstop
#include<math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int t,i,n,flag;
 int x,j,z,v;
 char a[50];

 n=StrToInt(Edit1->Text);

 for(t=2;t<=n;t++)
 {
  flag=1;
  for (i=2;i*i<=t;i++)
  {
   if (t%i==0) { flag=0; break; }
  }
  if (flag)
  {
   ltoa(t,a,2);
   z=strlen(a);
   x=z-1;
   for(j=0;j<z;j++)
   {
    if(a[j]==a[x])
    { v++; x--; }
   }
    if(v==z)
    { Memo1->Lines->Add(""+IntToStr(t)+"--->"+String(a)); v=0;}
    else v=0;
  }
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Memo1->Clear();
 Edit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Memo1->Clear();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
 if(Key>='0' && Key<='9'){}
 else if(Key==8) {}
 else Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
 Key=0;
}
//---------------------------------------------------------------------------