Перевести из паскаль в вба
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.

Question

Информатика: Перевести из паскаль в вба 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.

киса2013438 · Answer

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    WendEnd Sub...

Перевести из паскаль в вба 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.