Var n,k,m: integer;
begin
write('число: '); readln(n);
m:=1;
k:=trunc(log2(n));
if (k mod 2)=1 then m:=m shl (k-1)
else m:=m shl k;
repeat
write(m,' ');
m:=m shr 2;
until m<2;
<span>end.
</span>
Edu.......................................
Ответ в задании из информатики (А)
Цикл — різновид керівної конструкції у високорівневих мовах
програмування, призначена для організації багаторазового виконання
набору інструкцій. Також циклом може називатися будь-яка багатократно виконувана послідовність команд, організована будь-яким чином.