Question

помогите составить програмы на паскале! прошуу

Answer 1

Решение пишу с телефона. Поэтому проверить, компилируется ли программа или нет, я не смогу. program zd1; var x,y,pi:integer; begin writeln ('Введите значение переменной X'); readln (x); pi:=3,14; if (0 <= x <= 1) then y:=x^4-4 else y:=sqr(x)-sin (pi*sqr (x)); writeln ('Ответ = ', y); end.

Answer 2

Только что попробовал скомпилировать программу, не получилось. Исправить свою ошибку я не могу - потому что не понимаю, в чем именно она заключается. Не советую использовать мой код.