Проверьте правильность написания кода для visual basic тема "программирование в vb, содержащие сложные циклы" private sub command1_click() dim x, y, s, p, f, f1, a, t as single x = -5 p = 1 for n = 2 to 7 f = 1 for a = 1 to n - 1 f = f * a next a p = p * ((n + 1) / (n - 1)) next n s = 0 for k = 3 to 6 f1 = 1 for t = 1 to 2 * k f1 = f1 * t next t s = s + (2 * k / (k ^ 3 + 5)) next k z = p ^ 3 - 1 print z end sub
Dim x, p, s, f, f1, z As Single
Dim n, k As Integer
x = -5
p = 1
For n = 2 To 7
f = 1
For k = 1 To n - 1
f = f * k
Next k
p = p * ((n + 1) / (n - 1))
Next n
s = 0
For k = 3 To 6
f1 = 1
For n = 1 To 2 * k
f1 = f1 * n
Next n
s = s + (2 * k / (k ^ 3 + 5))
Next k
z = p ^ 3 - 1
Print z
End Sub