Question

Очееень сроочноо.......;!!!!!!!!!!!!!!!!!!

Answer 1

program z1;
var f,x:integer;
begin 
readln(x);
if (x<0) then f:=sin(x)
else
f:=cos(x);
writeln(f);
end.