Найти среди чисел те, которые являются квадратами некоторого числа m

@Whiplasher · Регистрация: 23.05.2011

Author24 — интернет-сервис помощи студентам

Даны целые положительные числа a1, a2, ..., аn. Найти среди них те, которые являются квадратами некоторого числа m

Почему не вычисляется корень квадратный? в чем ошибка? помогите

Visual Basic

Sub c()
Dim A() As Integer
 Dim i As Integer, m As Integer, s As Integer
Cells.Clear
Const SIZE = 100
 
ReDim A(1 To SIZE)
 
Randomize
 Cells(1, 1) = "исходный массив"
For i = 1 To SIZE
 
Cells(2, i + 2) = i
  Next i
m = InputBox("Введите m для анализа (> 0):", "m")
If m > 0 Then
  End If
 
 
For i = 1 To SIZE
Next
 
 If Sqr(i) = m Then
 
 MsgBox "Квадратом ', m, ' является: " & m
   End If
End Sub

@19vitek · 24.05.2011, 21:55

Visual Basic

Sub c()
Dim A() As Integer
 Dim i As Integer, m As Integer, s As Integer
Cells.Clear
Const SIZE = 100
 
ReDim A(1 To SIZE)
 
Randomize
 Cells(1, 1) = "исходный массив"
For i = 1 To SIZE
Cells(2, i + 2) = i
  Next i
m = InputBox("Введите m для анализа (> 0):", "m")
If m > 0 Then
For i = 1 To SIZE
 If Cells(2, i + 2) = m ^ 2 Then
 
 MsgBox "Квадратом " & m & " является: " & i
   End If
Next
  End If
End Sub

@Whiplasher · 24.05.2011, 21:59 **[ТС]**

Спасибо за помощь

@Whiplasher 108 / 1 / 0 Регистрация: 23.05.2011 Сообщений: 39
	24.05.2011, 21:59 [ТС]	3
	Спасибо за помощь 0

Найти среди чисел те, которые являются квадратами некоторого числа m

Решение