Даны целые положительные числа 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д