Помогите пожалуйста написать программу в Паскале. Задание 2.

Question

Помогите пожалуйста написать программу в Паскале. Задание 2.

---

Comments

"Вычислить произведение значений функции для аргументов крат.." а дальше?

---

Для аргументов красных m.

---

Кратных *

---

Помогите пожалуйста сделать

---

Что значит "3^2(тут вроде бы квадрат <= x <= 33^(тут неизвестно что))" ?

---

Там не в квадрате, а градус

---

Помогите)

Answer 1

Var
   x,x0,xn,m,h:integer;
   a,y,P,R:real;
Begin
Write('Введите начало диапазона: ');ReadLn(x0);
Write('Введите конец диапазона: ');ReadLn(xn);
Write('m = ');ReadLn(m);
Write('a = ');ReadLn(a);
Write('h = ');ReadLn(h);
P:=1;
x:=x0;
Repeat
R:=x*Pi/180;
y:=(Cos(R)+Sqr(Sin(R)))/(a+Cos(R*R));
if x mod m = 0 then P:=P*y;
WriteLn('y(',x,') = ',y);
x:=x+h;
Until x > xn;
WriteLn('P = ',P);
ReadLn
End.