Найти наибольший из делителей - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д