var g,r: real;
begin
write('Угол = ');
readln(g);
r:=g*pi/180;
writeln('sin = ',sin(r):4:2,' cos = ',cos(r):4:2);
end.
Пример:
Угол = 90
sin = 1.00 cos = 0.00
var g,r: real;
begin
write('Угол = ');
readln(g);
r:=g*pi/180;
writeln('sin = ',sin(r):4:2,' cos = ',cos(r):4:2);
end.
Пример:
Угол = 90
sin = 1.00 cos = 0.00