Question

Даны действительное число x и натуральное число n. Вычислить S=1+2/cos x+n/cos x

Answer 1

Для языка Pascal и варианта, когда значение x в радианах может получиться так:

var s,x:real;

n:integer;

begin

Readln(x,n);

s:=1+2/cos(x)+n/(cos(x));

writeln(s);

end.