Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
7 лет назад