Определить максимальное четное число из N чисел, введенных с клавиатуры

@Александр9797 · Регистрация: 17.11.2015

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

В Excel

@OLEGOFF · 26.03.2017, 12:41

Visual Basic

Sub Макс_чет()
    Dim n As Integer, m As Integer, B As Double, A As Double
    B = 0
    Do
       n = n + 1
       A = InputBox("Введите число № " & n & vbCrLf & "Окончание ввода - 0 ", , 0)
    
       If A = 0 Then n = n - 1: Exit Do
       If A > B And A Mod 2 = 0 Then B = A
    Loop
    If n = 0 Then MsgBox "Не введено ни одного числа": Exit Sub
    If m = 0 Then MsgBox "Максимальное четное число " & B: Exit Sub
   
End Sub

@Александр9797 2 / 2 / 3 Регистрация: 17.11.2015 Сообщений: 395
		1
	Определить максимальное четное число из N чисел, введенных с клавиатуры 26.03.2017, 12:12. Показов 4652. Ответов 1 Метки нет (Все метки) В Excel 0

	26.03.2017, 12:41

Определить максимальное четное число из N чисел, введенных с клавиатуры

Решение