Question

Напишите пожалуйста задачи в Паскале
z1 = 1 - (1/4 * sin(2a) ^ 2 + cos(2a)) 
z2 = cos(a) ^ 2 + cos(a) ^ 4

Answer 1

var  a,r,y: real;
begin
readln(a);  
r:= (1 - (1/4 * sqr(sin(2*a)) + cos(2*a)));
 y:= sqr(cos(a)) + sqr(cos(a))*sqr(cos(a)); 
writeln(r,y);
end.

Answer 2

Спасибо большое