Написать программу на Visual Basic

[rapturesomfan]

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

[Alex11223]

Проверил, 8.

Жду дальнейших команд.

[rapturesomfan]

Мне бы сам код увидеть

[ViktorR]

Так в чем проблема?

m3 = 0
m4 = 0
В цикле i принимает значения от 1 до 100
если i mod 3 = 1, то m3 = m3 +1
если i mod 4 = 2, то m4 = m4 + 1
конец цикла по i
Вывод результата.

и т.д.

Как-то так, ...

[Aleksandr H.]

Сообщение от ViktorR

Так в чем проблема?

m3 = 0
m4 = 0
В цикле i принимает значения от 1 до 100
если i mod 3 = 1, то m3 = m3 +1
если i mod 4 = 2, то m4 = m4 + 1
конец цикла по i
Вывод результата.

и т.д.

Как-то так, ...

немного не так

если (i mod 3 = 1 И i mod 4 = 2), то результ = результ + 1

[Alex11223]

Module Module1

    Function FindNumbers(i As Integer, numbers As List(Of Integer)) As List(Of Integer)
        If i >= 100 Then
            Return numbers
        End If

        Dim newNumbers = If(i Mod 3 = 1 And i Mod 4 = 2, numbers.Concat(New Integer() {i}).ToList(), numbers)
        Return FindNumbers(i + 1, newNumbers)
    End Function
    
    Sub Main()
        Console.WriteLine(FindNumbers(1, New List(Of Integer)()).Count)
    End Sub

End Module