Help!!! Помогите, прошу, очень надо

Question

Help!!! Помогите, прошу, очень надо

---

Comments

это сумма?

---

или произведние?

---

произведение

Answer 1

Visual Basic
Sub y
Dim x As Double, y As Double, i As Integer, g As Integer, Mes As String
x = InputBox ("Vvedite x")
y = 1
For i = 1 To 3
_ _For g = 1 To 4
_ _ _ _y = y*(i*g - cos(x) / sin(x))
_ _Next g
Next i
Mes = "y = " & y
MsgBox (Mes)
End

Comments

Зайди в excel или word и нажми сочетание клавиш

---

И туда введи код

---

Atr+F11

---

а можно поподробнее?

---

Два цикла друг в друге, внешний по i от 1 до 3, внутренний по g от 1 до 4, как написано.

---

Чтобы перейти в бейсик

---

внутри обоих циклов вычисляется очередное значение i*g - ctg(x) и умножается на уже вычисленное произведение.

Answer 2

Var i,j:integer;
p,x: real;
begin 
p:=1;
read(x);
for i:=1 to 3 do   
      for j:=1 to 4 do                    
            p:=p*(i*j- cos(x)/sin(x));        
write(p:0:3); 
end.

Comments

У тебя там ошибка

---

а остальное всё так же?

---

да

---

спасибо)

---

почему (p:0:3)

---

да и программа выводит ошибку

---

где именно?

---

p:=p*(i*j- cos(x)/sin(x));

---

Я заходил на твой вопрос

---

Исправь : на /