Question

Плиз в лазарусе можете сделать и скинуть готовый документ 25 балов) 5 задание

Answer 1

Begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := StrToFloat(Edit3.Text);
m := a + b - c / (a - 2 * b);
Label4.Caption := FloatToStr (m);

Где Edit1, Edit2, Edit3 - поля для ввода, Label4 - строка для вывода.