• Registered: 2015-03-07
  • Posts: 122

Topic: число кратное трём

здравейте,моля за помощ как да съставя формулата:

procedure CalculateTotal50;
begin
    if ValidFloat(frmZakaz.edZ.Text)  then
    begin
     frmZakaz.edtotal.Text := StrToFloat(frmZak.edZ.Text) -2;

if (frmZakaz.edtotal.text) *  число кратное трём =0  then frmZakaz.edtotal.visible := False;

if (frmZakaz.edtotal.text) *  число кратное трём <>0 then frmZakaz.edtotal.visible := True;
    end;

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: число кратное трём

procedure CalculateTotal50(Sender: TObject; var Cancel: boolean);
begin
if (Form1.Edit1.Value mod  3) =0  then Form1.Label1.Caption:='Число кратно трем';
if (Form1.Edit1.Value mod  3) <>0 then Form1.Label1.Caption:='Число некратно трем';
end;