Даны целые положительные числа 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы