Question

Помогите сделать в полном и сокращённым паскале и программу

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var x := ReadReal('x =');

 var fx: real;

 // полный if

 if x < -1 then fx := 2 * x + 4

 else fx := x * x;

 // сокращенный if

 if x < -1 then fx := 2 * x + 4;

 if x >= -1 then fx := x * x;

 // совсем короткий вариант

 fx := x < -1 ? 2 * x + 4 : x * x;

 // результат

 Writeln(fx)

end.