Плиз в лазарусе можете сделать и скинуть готовый документ 25 балов) 5 задание
Answers & Comments
kolyatc2011
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 - строка для вывода.
Answers & Comments
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 - строка для вывода.