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