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

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 - строка для вывода.

Comments

Спасибо тебе! Святой человек!!!

---

забыл добавить перед begin: var a,b,c,m : real;