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
вобще меня учитель учил это делать так:
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Reverse.Println
end.
<u>Пример</u>
рука
акур
Если число в 31 дважды умножить то получится нужное нам число значит долго жителю где 1061
Пиши по другому, а то 2 будет