Pascal Дано действительное число x. Вычислить f(x), если

Ответ

Автор - AnonimusPro

var x,y: real;
begin
readln(x);
if x<=0 then y:=0
else if (x>0) and (x<=1)
then y:=x*x-x else
y:=x*x-sin(pi*x*x);
write(y);
end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.