Ответы
Гость Var
x,y:real;
Begin
Write('x = ');ReadLn(x);
if x > 5 then y:=2*Cos(x)
else if x < 5 then y:=14-x
else y:=30;
WriteLn('f(',x,') = ',y)
End.
Нет комментариев
Список предметов
