// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив A[',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); for var i:=0 to m-1 do a[i,2]:=-7; Writeln(4*a.ColCount*'-'); a.Println(4) end.
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив A[',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
for var i:=0 to m-1 do a[i,2]:=-7;
Writeln(4*a.ColCount*'-');
a.Println(4)
end.
Пример
Количество строк в массиве: 6
Количество столбцов в массиве: 9
*** Исходный массив A[6,9] ***
-14 34 -25 27 -48 -15 50 26 -16
8 -15 -49 -50 -44 -44 47 32 35
-32 13 19 -16 -25 41 10 39 49
-11 -35 -39 -16 26 -19 47 -11 14
-22 42 -5 -39 28 -42 9 -41 18
0 -22 -25 -15 -11 7 31 38 33
-14 34 -7 27 -48 -15 50 26 -16
8 -15 -7 -50 -44 -44 47 32 35
-32 13 -7 -16 -25 41 10 39 49
-11 -35 -7 -16 26 -19 47 -11 14
-22 42 -7 -39 28 -42 9 -41 18
0 -22 -7 -15 -11 7 31 38 33
ответ:Вариант №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