Запишите зна¬че¬ние пе¬ре¬мен¬ной s, по¬лу¬чен¬ное в ре¬зуль¬та¬те ра¬бо¬ты сле¬ду¬ю¬щей программы. Var s,k: integer;
Begin
s := 0;
for k := 4 to 9 do
s := s + 12;
writeln(s);
End.

ну смотри,

1. На вкладке Файл нажмите Печать.

2. Для предварительного просмотра каждой страницы используйте стрелки в нижней части окна предварительного просмотра. Если текст отображается слишком мелко, увеличьте масштаб с ползунка в нижней части страницы.

3. Выберите количество копий и любые другие нужные параметры, а затем нажмите кнопку Печать.

Чтобы напечатать только определенные страницы, свойства документа или исправления и комментарии, в разделе Настройка щелкните стрелку в правой части кнопки Напечатать все страницы (по умолчанию), чтобы увидеть все варианты.

Чтобы напечатать только определенные страницы, выполните одно из указанных ниже действий.

Чтобы напечатать страницу, отображаемую в режиме предварительного просмотра, выберите Текущая страница.

Чтобы напечатать последовательные страницы, например 1–3, выберите вариант Настраиваемая печать и введите номера первой и последней страниц в поле Страницы.

Чтобы напечатать отдельные страницы и диапазон одновременно (например, страницу 3 и страницы 4–6), выберите Настраиваемая печать и введите через запятую номера и диапазоны (например, 3, 4-6).

ответ:Вариант №1 (не совсем удачный, как было отмечено в комментариях).

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)

var n,i,m:integer;

flag:boolean;

begin

 readln(n);

 flag:=false;

 if (n mod 2<>0)then i:=n-1 else i:=n;

 while i>0 do begin  

   if power(2,i)<=n then begin

     write(power(2,i),' '); flag:=true;

   end;

   i:=i-2;

end;

if not flag then writeln(0);

end.

Тест №1

1025

1024 256 64 16 4

Тест №2

1

0

Вариант №2

var a,i,n: integer;

begin

 a:=1;readln(n);

 i:=trunc(log2(n)); //получим степень двойки для n

 //если i нечетное,

 //то первое искомое число получаем путем сдвига влево на i-1 в

 //двоичном представлении числа иначе сдвиг на i

 if (i mod 2)=1 then a:=a shl(i-1) else a:=a shl i;

 //далее получаем числа сдвигая вправо на 2 разряда

 //в двоичном представлении числа

 while a>=2 do begin

   write(a,' ');

   a:=a shr 2;

 end;

end.

Тестовое решение:

2147483647

1073741824 268435456 67108864 16777216 4194304 1048576 262144 65536 16384 4096 1024 256 64 16 4