@Wolverine X

Задание звучит так:Является ли заданное натуральное число совершенным? (Число называется совершенным, если оно равно сумме всех своих делителей, за исключением самого себя. Например, 6 - совершенное число, так как 6=1+2+3).

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var s,a:real;
n:integer;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);

s:=0;
a:=1;
While a<=(n-1) do

begin
if n mod a=0 then
S:=s+a;
a:=a+1
end;

if s=n then
Edit3.Text:=IntToStr(s);
else showmessage(IntToStr(s));
end;

end.

0

@igoriy

Добавлено через 59 секунд
И зачем s,a - Real?

1