Скачиваний:
1
Добавлен:
30.05.2020
Размер:
1.21 Кб
Скачать
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#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 a,b,c,d;
 for (c=0;c<8;c++)
 {
  a=c+2; d=9-c;
  for(b=0;b<10;b++)
  {
   if((b!=c) && (b<a) && (b!=d) && (b!=0)){
   Memo1->Lines->Add("A="+IntToStr(a)+"  B="+(b)+"  C="+(c)+"  D="+(d));}
  }
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Memo1->Clear();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------
Соседние файлы в папке B
  • #
    30.05.20203.79 Кб1Project1.bpr
  • #
    30.05.20201.07 Кб1Project1.cpp
  • #
    30.05.202017.79 Кб1Project1.obj
  • #
    30.05.2020876 б1Project1.res
  • #
    30.05.20202.03 Mб1Project1.tds
  • #
    30.05.20201.21 Кб1Unit1.cpp
  • #
    30.05.202051 б1Unit1.ddp
  • #
    30.05.20201.15 Кб1Unit1.dfm
  • #
    30.05.2020977 б1Unit1.h
  • #
    30.05.202040.09 Кб1Unit1.obj
  • #
    30.05.20201.21 Кб2Unit1.~cpp