перевести из паскаль в вба
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.
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.
More Questions From This User See All
Answers & Comments
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