unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Spin;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
SpinEdit1: TSpinEdit;
Label1: TLabel;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
// const mn=[1,3,5,7,9,11,13,15];
var
Form1: TForm1;
a, i, j, n, k, g: byte;
b: array [1 .. 50] of byte;
mn: set of byte;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear();
n := 0;
mn := [];
for g := 1 to 10 do
include(mn, StrToInt(Edit1.text));
for i := 0 to 255 do
if i in mn then
begin
n := n + 1;
b[n] := i;
Memo1.Lines.Add(IntToStr(b[n]));
end;
a := SpinEdit1.Value;
k := 0;
for i := 1 to n - 1 do
for j := i + 1 to n do
if (i <> j) and (b[i] + b[j] = a) then
begin
k := k + 1;
Memo1.Lines.Add('-----------');
Memo1.Lines.Add(IntToStr(b[i]) + '+' + IntToStr(b[j]));
end;
if k = 0 then
Memo1.Lines.Add('There are no pairs');
end;
end.