Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(inttostr(round(35.459*0.1)*10)); ShowMessage(inttostr(round(27.684*0.1)*10)); end;
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(inttostr(round(35.459*0.1)*10)); ShowMessage(inttostr(round(27.684*0.1)*10)); end;