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

Напишите пожалуйста задачи в Паскале z1 = 1 - (1/4 * sin(2a) ^ 2 + cos(2a))  z2 = cos(a) ^ 2 + cos(a) ^ 4
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы