Помогите пожалуйста составить программу на паскаль АВС.
Вычислить значение m по формуле M=2/sin(x), где x изменяется от 1 до 100.
Вычислить значение m по формуле M=2/sin(x), где x изменяется от 1 до 100.
More Questions From This User See All
Answers & Comments
Можно как то так:
var
M: real;
x: integer;
begin
for x := 1 to 100 do
begin
M := 2 / Sin(x);
Println('x=', x, '; M=', M);
end;
end.