Procedure TForm1.Button1Click(Sender: TObject); var

x1,x2,y1,y2,y:real;

begin

x1=StrToFloat(Edit1.Text);

x2:=StrToFloat(Edit2.Text);

y1=x1*x*2;

y2:=x1+x2;

y:=y2/y1;

y:=Int(y);//Ця команда правильна

Label1.Текст:=FloatToStr(y);

end;​

надо исправить код в програме Lazerus

SergeyS9    2   13.03.2021 17:23    1