В котором за именем команды следует многоточие
Sub mm()
M = Cells(2, 7)
N = Cells(2, 15)
For i = 1 To N
For J = 1 To M
Cells(J + 3, i) = "'*"
Next J
Next i
<span>End Sub</span>
Var n,k:integer;
begin
write('n='); readln(n);
k:=1;
while k<=n do
begin
write(k,' ');
k:=k*2;
end;
writeln;
end.
Пример:
n=50
1 2 4 8 16 32
Джойстик, геймпад, клавиатура зависит от игры