Question

Помогите пожалуйста составить программу на паскаль АВС.
Вычислить значение m по формуле M=2/sin(x), где x изменяется от 1 до 100.

Answer 1

Можно как то так:

var

M: real;

x: integer;

begin

for x := 1 to 100 do

begin

M := 2 / Sin(x);

Println('x=', x, '; M=', M);

end;

end.