Вводится последовательность целых чисел. Найти среди них “точные квадраты” (16,25 и т.д.) и подсчитать их количество. - VB
Формулировка задачи:
Вводится последовательность целых чисел. Найти среди них “точные квадраты”
(16,25 и т.д.) и подсчитать их количество.
Решение задачи: «Вводится последовательность целых чисел. Найти среди них “точные квадраты” (16,25 и т.д.) и подсчитать их количество.»
textual
Листинг программы
Private Sub Command1_Click()
Dim A() As Single, n As Integer, c As Integer
n = InputBox("Всего в массиве")
ReDim A(1 To n)
For i = 1 To n
A(i) = InputBox("Введите элемент № " & i)
If Sqr(A(i)) = Fix(Sqr(A(i))) Then c = c + 1
Next i
MsgBox "Всего целых квадратов " & c
End Sub