Вывести точные квадраты натуральных чисел, не превосходящие данного числа Nна языке VBA
Вывести точные квадраты натуральных чисел, не превосходящие данного числа Nна языке VBA
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Dim N As Integer
Dim i As Integer
N = InputBox("Введите число N:")
For i = 1 To N
If i * i <= N Then
Debug.Print i & " ^ 2 = " & i * i
End If
Next i
End Sub
Этот код позволяет пользователю ввести число N, а затем выводит точные квадраты натуральных чисел, не превосходящие заданное число N.