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

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

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

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

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.000 из 5


СОХРАНИТЬ ССЫЛКУ