Question

Вывести на экран значение функции у = sin (x), если 0≤x≤180 с шагом 1 градус. ПАСКАЛЬ

Answer 1

===== PascalABC.NET =====

begin

 for var x := 0 to 180 do

   Writeln(x:3, Sin(DegToRad(x)):20:15)

end.