Проверить, существует ли натуральное число a<100 - VB

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

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

Проверить, существует ли натуральное число a<100, которое обладает следующими свойствами: a Mod 5 = 3, a Mod 6 = 4. Сколько таких чисел?

Решение задачи: «Проверить, существует ли натуральное число a<100»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Activate()
Dim a As Integer, Otvet_GAMEMASSACRE As Integer
For a = 1 To 100
    If a Mod 5 = 3 And a Mod 6 = 4 Then Otvet_GAMEMASSACRE = Otvet_GAMEMASSACRE + 1
Next
Print "Otvet_GAMEMASSACRE =    " & Otvet_GAMEMASSACRE
End Sub

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

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