Question

Составьте программу "if" на языке Паскаль АВС. Пожалуйста. До завтра надо(((

Answer 1

Var x,y:real;
Begin
Write('x = ');ReadLn(x);
if (-1<=x)and(x<=1) then WriteLn('f(',x,') = ',4-2*x*x)
else if (1<x)and(x<=3) then WriteLn('f(',x,') = ',x+1)
     else WriteLn('Функция не определена')
End.