Решить задачу[tex]y=left 2x+1, x textless 1 atop 3x-1, xgeq1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

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

begin

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

 var y := x lt; 1 ? 2 * x + 1 : 3 * x - 1;

 y.Print

end.

Я так разумею, для тебя нужна программка, вычисляющая y по x (поэтому что больше тут решать нечего). Держи:

П0 1 - xlt;0 11 ИП0 2 * 1 + С/П ИП0 3 * 1 - С/П