mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-21 01:21:35 +02:00
12 lines
143 B
ObjectPascal
12 lines
143 B
ObjectPascal
Uses Math;
|
|
|
|
Var
|
|
I : Integer;
|
|
|
|
Begin
|
|
For I := 0 To 359 Do
|
|
Begin
|
|
WriteLn( RadToDeg(ArcSin( DegToRad(Real(I)))):3:18);
|
|
End
|
|
End.
|