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;
Виправити помилки​

Настя040827    3   11.03.2021 01:28    3