Delphi-Help

unit simple_;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

  n: integer; // проверяемое число

  d: integer; // делитель

  r: integer; // остаток от деления n на d

begin

  n := StrToInt(Edit1.text);

  d := 2; // сначала будем делить на два

  repeat

    r := n mod d;

    if r <> 0 {// n не разделилось нацело на d} then

      d := d + 1;

  until r = 0; // повторять пока не найдено число на n делится без остатка

  label2.caption := Edit1.text;

  if d = n then

    label2.caption := label2.caption + ' - простое число.'

  else

    label2.caption := label2.caption + ' - обычное число.';

end;

end.