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