Question

вычислить через оператор IF

Answer 1

var

  x,y:real;

begin

  write ('X = ');

  readln(x);

  if x>0 then y:=cos(x*pi/180) else

   y:=sin(x*pi/180);

  writeln ('Y = ',y);

  readln;

end.