Ответы и объяснения

  • Участник Знаний
2014-04-10T11:35:51+04:00

var  a, b, d, x, y, y1: real;
begin 
write('Введите x, a, b, d:'); 
readln(x, a, b, d); 
y := cos(power(x, 3)) * power(a, 2); 
y := 3 * power(y, x);
y1 := sin(x - power(b, 5));
y1 := abs(5 * a * power(y1, 4)); 
y1 := sin(y1); 
y1 := power(y1, 2 * x); 
y := y + y1; 
y1 := abs(a - power(d, 4)) * sqrt(7 * a + power(sin(x + 6), 3)) + d; 
y := sqrt(y / y1) * power(sin(x), 3); 
writeln('Y=', y)
end.