Question

De alcătuit program care va calcula valoarea expresiei :
W=(7-2x)la 3 ×m/modul lui 3x-1

Answer 1

Var W,x,m:real;
Begin
Read(x,m);
If (3*x-1<0) then W:=((7-2*x)*(7-2*x)*(7-2*x)*m) / (1-3*x) else W:=((7-2*x)*(7-2*x)*(7-2*x)*m) / (3*x-1);
Writeln(W);
End.