Найти наибольший из делителей - VB

Узнай цену своей работы

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

1.Введено число n. 1.1 . найти наибольший из делителей; 1.2. найти наименьший из делителей; 2.В программу вводится натуральное число n (n >= 100). Определить: 2.1 последнюю цифру числа n; 2.2. первую цифру числа n; 3.Даны натуральные числа n, m. 3.1 Найдите наибольший общий делитель (НОД) n и m любым другим способом. 4.Подсчитать количество трехзначных чисел, цифры которых в сумме дают 10 5.Для данного действительного числа a, найти такое наименьшее n, что 1 + 1/2 + … +1/n > a. Рекомендации Суть задания в том, что нужно вычислять сумму 1 + 1/2 + … +1/n до тех пор, пока она меньше или равна a. Выходные данные - не значение суммы, а значение перменной n, при котором сумма 1 + 1/2 + … +1/n стала больше a. Для решения задачи удобно использовать цикл с пост-условием. Вычислить сумму 1/(4^i+5^(i+2)) с заданной точностью e(e вводится с клавиатуры). Считать, что требуемая точность достигнута, если очередное слагаемое оказалось по модулю меньше, чем e. Помогите пожалуйста.Завтра сдавать.

Решение задачи: «Найти наибольший из делителей»

textual
Листинг программы
Option Explicit
Dim s As String, n As Integer, i As Integer
 
Private Sub Form_Load()
    n = CInt(Trim(InputBox("vvedite chislo")))
    s = "chislo=" + CStr(n)
    For i = n \ 2 To 1 Step -1
        If (n Mod i = 0) Then
            s = s + "  max=" + CStr(i)
            Exit For
        End If
    Next i
    For i = 2 To n \ 2
        If (n Mod i = 0) Then
            s = s + "  min=" + CStr(i)
            Exit For
        End If
    Next i
    If (i = n \ 2 + 1) Then s = s + "  min=1"
    MsgBox s
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

14   голосов , оценка 4.214 из 5
Похожие ответы