Вариант №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.
17.. Установите соответствия между прикладными программами и их назначением
1. Браузер 10. Opera
2. Текстовый редактор 6. Блокнот
3. Графический редактор 4. Paint.NET
4. Редактор видео 3. Movie Maker
5. Издательская система 9. Microsoft Publisher
6. Электронная таблица 2.Microsoft Excel
7. Система управления базами данных 7. Microsoft Access
8. Программа создания презентаций 8. Microsoft Power Paint
9. Почтовая программа 5. Microsoft Outlook
10. Операционная система 1.Microsoft Windows
18.. Информацию, не зависящую от чьего-либо мнения и суждения, называют
1. Объективной
19.. Одно из свойств информации – это
4. Актуальность
20. Растровый графический редактор
2. Paint
21.. Оперативная память служит для
3. хранение исполняемой в данный момент времени программы и данных, с которыми она работает
22.. Служебная программа для проверки и настройки компьютера называется
2. утилита
23.. Объектами авторского права являются (выберите несколько ответов)
3. Программы для компьютеров (включая подготовительные материалы, а также звук, графику и видио, которое получаются с программы)
24.. К текстовым редакторам относятся (выберите несколько ответов)
1. Блокнот
3. Word Pad
5. Open Office Writer
25. К системам управления базами данных относятся
5. Microsoft Access
26..Конфигурация (топология) локальной сети, в которой все рабочие станции соединены с файл-сервером, называется
2. Радиальной (звезда)
27.. Комплекс аппаратных и программных средств, позволяющих компьютерам обмениваться данными
4. Компьютерная сеть
//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