Составить программу, которая находит наибольшее значение отношения трехзначного числа к сумме его цифр - VB

Формулировка задачи:

Решите плиз)))очень прошу))) 1. Написать программу, которая бы по введенному номеру единицы измерения (1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер) и массе М выдавала бы соответствующее значение массы в килограммах. 2. Составить программу, которая находит наибольшее значение отношения трехзначного числа к сумме его цифр. Заранее благодарен.

Решение задачи: «Составить программу, которая находит наибольшее значение отношения трехзначного числа к сумме его цифр»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Max = 0
For i = 100 To 999
    res = i / (CInt(Mid(i, 1, 1)) + CInt(Mid(i, 2, 1)) + CInt(Mid(i, 3, 1)))
    If res > Max Then Max = res: i_max = i
Next
MsgBox "Г·ГЁГ±Г«Г® - " & i_max & ", Г±ГіГ¬Г¬Г* - " & Max
End Sub
                        

Оцени полезность:

11 голосов , оценка 4.455 из 5

Похожие ответы