Question

Вывести на экран квадраты n первых положительных чисел. Значение n определяется пользователем с клавиатуры. Выполните решение задачи с помощью цикла с постусловием.

Answer 1

Ответ:

Объяснение:

Sub Kvadrat

Dim n As Long, i As Long

Cls

Input "n = ", n

i = 1

Do

   Print i^2 & "; "

   i = i + 1

Loop Until i > n

End Sub