Обращаюсь к Вам за помощью. Мне нужно запрограммировать в "Паскале" такое выражение, которое на слайде:

1
Program p7;
var n:integer;
begin
Write('Введите N, N = ');
Readln(n);
Write('Ответ: ', sqrt(sin(n)/sqr(cos(n/4))):6:5);//n в радианах
end.

Program p7;
var n:integer;
begin
Write('Введите N, N = ');
Readln(n);
Write('Ответ: ', sqrt(sin(n*180/3.14)/sqr(cos(n*180/3.14/4))):6:5);//n в градусах
end.

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

2014-02-10T20:30:22+04:00
Program qq;
var a, res:real;
begin
 res:=sqrt((sin(a))/(cos(a/4)*cos(a/4)));
writeln(res);
end.