Задан тангенс половины угла а . Если а<= 0,5 рад, то вычислить значения синуса и косинуса полного угла a . Если a >0,5 рад, то выч

[Elizz]

Задан тангенс половины угла а . Если а<= 0,5 рад, то вычислить значения синуса и косинуса полного угла a . Если a >0,5 рад, то вычислить значение тангенса полного угла a.

[BDA]

Uses CRT;
var
a:real;
BEGIN
write('Input: ');
readln(a);
a:=2*arctan(a);
if a<=0.5 then
begin
	writeln('sin: ',sin(a):0:3);
	writeln('cos: ',cos(a):0:3);
end
else
	writeln('tan: ',sin(a)/cos(a):0:3);
readln;
END.