Question

5.Cоставьте программу для определения значения следующих выражений :а)0,5x в квадрате /(a+b)

Answer 1

Pascal

var
x,a,b : integer;
r : real;

begin
 readln (x,a,b);
r := (0.5*sqr(x))/(a+b);
writeln (r)
end.