Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Помогите сделать задание на pascal

влад фролов Знаток (273), открыт 3 часа назад
Нужно решить задачу pascal
1 ответ
Андрей Высший разум (461524) 3 часа назад
 program p;
var x: real;
begin
read(x);
if x < 0 then write(exp(cos(x)))
else if x <= 2 then write(-2 * x)
else write(1 - x * x * x)
end.
Похожие вопросы