Составить формулу по правилу

@lexa_7up · Регистрация: 23.12.2011

Author24 — интернет-сервис помощи студентам

Помогите составить формулу. есть число, например 5. нужно 5/5+4+3+2+1.
если будет 6, то 6/6+5+4+3+2+1,
если будет 4, то 4/4/+3+2+1. Помогите пожалуйста

@ildwine · 14.07.2014, 19:28

Что то типа того:

VB.NET

Sub aaa()
    Dim res As Double
    Dim i, n As Integer
    n = 5
    For i = 1 To n - 1
        res = res + i
    Next i
    res = n / n + res
End Sub

@lexa_7up · 14.07.2014, 19:53 **[ТС]**

неправильно

@ildwine · 14.07.2014, 20:00

Я так понимаю вам надо 6/(6+5+4+3+2+1) тогда?

Добавлено через 2 минуты

VB.NET

Sub aaa()
    Dim res As Double
    Dim i, n As Integer
    res = 0
    n = 7
    For i = 1 To n
        res = res + i
    Next i
    res = n / res    
End Sub

@lexa_7up · 15.07.2014, 07:58 **[ТС]**

число n вводится с клавиатуры

@Puporev · 15.07.2014, 08:20

Не по теме:

Сообщение от lexa_7up

число n вводится с клавиатуры

Ну это уже консилиум нужно собирать, одному ildwine, это вряд ли под силу...

@ildwine · 15.07.2014, 09:40

lexa_7up, вопрос заключался в "составить формулу"...

@lexa_7up 2 / 2 / 0 Регистрация: 23.12.2011 Сообщений: 57
		1
	Составить формулу по правилу 14.07.2014, 18:50. Показов 485. Ответов 6 Метки нет (Все метки) Помогите составить формулу. есть число, например 5. нужно 5/5+4+3+2+1. если будет 6, то 6/6+5+4+3+2+1, если будет 4, то 4/4/+3+2+1. Помогите пожалуйста 0

@lexa_7up 2 / 2 / 0 Регистрация: 23.12.2011 Сообщений: 57
	14.07.2014, 19:53 [ТС]	3
	неправильно 0

@lexa_7up 2 / 2 / 0 Регистрация: 23.12.2011 Сообщений: 57
	15.07.2014, 07:58 [ТС]	5
	число n вводится с клавиатуры 0

@Puporev
	15.07.2014, 08:20 #6
	Не по теме: Сообщение от lexa_7up число n вводится с клавиатуры Ну это уже консилиум нужно собирать, одному ildwine, это вряд ли под силу... 0

@ildwine Супер-модератор 6194 / 2941 / 1300 Регистрация: 04.03.2013 Сообщений: 5,785 Записей в блоге: 1
	15.07.2014, 09:40	7
	lexa_7up, вопрос заключался в "составить формулу"... 0