Добавил:
til1231
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:функция / Новый текстовый документ
.txt Function z(u As Integer, p As Integer, s As Integer)
If u = (p + s) / 2 Then '(Если предыдущее число + следующее)/ 2 = текущему значению, то оно является членом арифмитической прогресии
r = "Является"
End If
z = r
End Function
If u = (p + s) / 2 Then '(Если предыдущее число + следующее)/ 2 = текущему значению, то оно является членом арифмитической прогресии
r = "Является"
End If
z = r
End Function
Соседние файлы в папке функция