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

georgyudin2005    1   08.11.2019 21:26    0