Вводится последовательность целых чисел. Найти среди них “точные квадраты” (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

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


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

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

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