ТЕМА: « Работа с числом. Формирование нового числа».

Дано число. Вывести цифры исходного числа через пробел. Вывести на форму через запятую все четные цифры числа. Найти в зависимости от включенных флажков - произведение четных цифр или сумму четных цифр , их количество, найти среди четных цифр минимальную цифру. Сравнить количество четных и нечетных делителей числа и вывести сообщение, отсортировать делители числа в порядке убывания и вывести через запятую.

unit Unit1;

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

E1.Text:='';

L1.Caption:='';

L2.Caption:='';

L3.Caption:='';

L4.Caption:='';

L6.Caption:='';

L7.Caption:='';

L8.Caption:='';

L9.Caption:='';

L12.Caption:='';

L13.Caption:='';

end;

procedure TForm1.Button1Click(Sender: TObject);

var t:string;a,k,i,b,ch,j,kol,k2,k3,k4,pr,sum,min:integer;

begin

t:=E1.Text;

k:=length(t);

for i:=1 to k do begin

L1.Caption:=L1.Caption+t[i]+' ';

end;

t:=E1.Text;

min:=strtoint(t[1]);

kol:=0;

pr:=1;

sum:=0;

for i:=1 to length(t) do

if strtoint(t[i]) mod 2=0 then begin

inc(kol);L3.Caption:=L3.Caption+t[i]+',';

L2.Caption:=IntToStr(kol);

pr:=pr*strtoint(t[i]);

L7.Caption:=inttostr(pr);

sum:=sum+strtoint(t[i]);

L6.Caption:=inttostr(sum);

if strtoint(t[i])<min then min:=strtoint(t[i]);

L4.Caption:=inttostr(min);

end;

k2:=0;

a:=strtoint(E1.Text);

for i:=2 to a-1 do

if a mod i=0 then begin inc(k2);

L12.Caption:=L12.Caption+inttostr(i)+' ';end;

L13.Caption:=L13.Caption+inttostr(k2);

a:=strtoint(E1.Text);

for i:=2 to a-1 do

if (a mod i=0)and(i mod 2=0) then begin inc(k3);

L8.Caption:=inttostr(k3);

end;

a:=strtoint(E1.Text);

for i:=2 to a-1 do

if (a mod i=0)and(i mod 2<>0) then begin inc(k4);

L9.Caption:=inttostr(k4);

end;

end;

end.