Даны целые положительные числа a1, a2, ..., аn. Найти среди них те, которые являются квадратами некоторого числа m. - VB
Формулировка задачи:
Даны целые положительные числа a1, a2, ..., аn. Найти среди них те, которые являются квадратами некоторого числа m.
помогите,плииз!
Решение задачи: «Даны целые положительные числа a1, a2, ..., аn. Найти среди них те, которые являются квадратами некоторого числа m.»
textual
Листинг программы
Private Sub Command1_Click()
Dim a() As Single, N As Integer, m As Single
N = InputBox("n")
ReDim a(1 To N)
m = InputBox("m")
m = m ^ 2
answer = ""
For i = 1 To N
a(i) = Int(99 * Rnd + 1)
If a(i) = m Then answer = answer & a(i) & "(" & i & ")" & Chr(13)
Next i
If answer = "" Then MsgBox ("Нет таких чисел A()") Else MsgBox answer
End Sub