Question

создать код для вычисления примера y=3*(a+b)/2
P.S Pascal

Answer 1

var

 y, a, b: real;

Begin

 Write('a = ');ReadLn(a);

 Write('b = ');ReadLn(b);

 

 y := 3 * (a + b) / 2;

 

 WriteLn('y = ', y);

End.