Вот ответ на твой вопрос, не знаю точный он или нет
Var i:integer
Begin
For i:=-5 to 5 do
Writeln (2*sin(0.2*i*3));
End.
Вот ответ на твой вопрос, не знаю точный он или нет
Var i:integer
Begin
For i:=-5 to 5 do
Writeln (2*sin(0.2*i*3));
End.