Question

рассчитать значение у при заданном значении х:
cos² при х<0
 y =1 +cos²x  в противном случае

Answer 1

var x:real;
begin
read (x);
if (x<0) then writeln (sqr(cos(x))) else writeln (1+sqr(cos(x)));
end.