перевести из паскаль в вба
var x,n: integer;
begin
write('n = ');
readln(n);
x := 1;
while sqr(x) < n do begin
write(sqr(x),' ');
x := x + 1
end;

readln
end.

Ответ

Автор - BobbyFresnel

Sub abcd()

Dim n As Integer, x As Integer

n = CInt(InputBox("n="))

x = 1

While x * x < n

MsgBox x * x

x = x + 1

Wend

End Sub

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.