Проверить, существует ли натуральное число 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