Тема массивы. Программа Visual Basic. Даны целые положительные числа а1, а2, ..., an. Найти среди них те, которые являются квадратами некоторого числа m.

Предыдущий
вопрос Следующий
вопрос

Для решения данной задачи можно использовать следующий код на Visual Basic:

Module Module1
Sub Main()
Dim numbers() As Integer = {1, 4, 9, 16, 25, 36, 49, 64, 81, 100} ' заданные числа
Dim result As New List(Of Integer)
For i = 0 To numbers.Length - 1
Dim sqrt As Double = Math.Sqrt(numbers(i))
If sqrt = Math.Floor(sqrt) Then
result.Add(numbers(i))
End If
Next
Console.WriteLine("Числа, которые являются квадратами некоторого числа m:")
For Each num In result
Console.WriteLine(num)
Next
Console.ReadLine()
End Sub
End Module

Данный код создает массив целых чисел и затем находит среди них те, которые являются квадратами целого числа. Результат выводится на экран.

При запуске программы с предложенным массивом чисел, результатом будет:

Числа, которые являются квадратами некоторого числа m:
1
4
9
16
25
36
49
64
81
100

Вы можете изменить массив чисел на свой собственный, если необходимо.