procedure TForm1.Button1Click(Sender: TObject);

var

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

begin

x1=StrToFloat(Edit1.Text);

x2:=StrToFloat(Edit2.Text);

y1=x1x2;

y2:=x1+x2;

y:=y2/y1;

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

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

end;

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

Question

Информатика: procedure TForm1.Button1Click(Sender: TObject);varx1,x2,y1,y2,y:real;beginx1=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​

mgam56 · Answer

ответ: x2,y1,y2,y:real;beginx1=StrToFloat(Edit1.Text);x2:=StrToFloat(Edit2.Text);y1=x1*x*2;y2:=x1+x2;y:=y2/y1;y:=Int(y);//Ця команда правильнаОбъяснение:...