Во многих , связанных с компьютерами, особенно близких к аппаратной части, важную роль играют числа, являющиеся степенями двойки: 1, 2, 4, 8 и так далее. напишите программу, которая проверяет, является ли введённое натуральное число степенью двойки. если да, то выводится сама эта степень; если нет, выводится «нет».

формат ввода
одно целое число.

формат вывода
одно целое число (показатель степени) или строка «нет».

легенда гласит, что карл фридрих гаусс, учась в школе, смог быстро посчитать

сумму целых чисел от 1 до 100, заметив, что 1 + 100 = 2 + 99 = … = 50 + 51. теперь решите

посложнее: можно ли перед каждым из чисел от 1 до n расставить знаки «+» или «–»

так, чтобы сумма получившихся чисел была равна 0? например, для n = 3 сумма –1 –2 +3

будет равна 0, а для n = 2 этого сделать нельзя.

программа получает на вход целое неотрицательное число n, не превосходящее 10в(5)степени.

программа должна вывести последовательность из n символов «+» или «–»,

соответствующих знакам, которые нужно расставить перед числами от 1 до n так, чтобы

сумма получившихся чисел была равна 0. если имеет несколько решений, нужно

вывести один (лобой) ответ. если не имеет решения для данного n, нужно вывести

одно слово «impossible».

ввод:

3

2

вывод:

--+

impossible

примечание:

правильным ответом будет также «++-»

1. utfa.fps

2.какую программу?

3. x(n)=5n²-4n-1

xn-нечётное тогда, когда n-чётное

x(0)=-1

x(2)=11

x(4)=63

x(6)=155

x(8)=287

x(10)=459

x(12)=671

x(14)=923

x(16)=1215

x(18)=1547

x(20)=1919

program n1;   const n=10;   var  mas: array[1..n] of integer;   i: integer;   max,min,sum: integer;   ar: real;   begin    for i: =1 to n dobegin  mas[i]: = random (20)-10;   write(mas[i],' ');   writeln  end;   max: =1;     for i: =2 to n do    if mas[i]> mas[max] then    max: =i;     writeln;     writeln('максимаьное значение a[',max,']= ',mas[max]);       min: =1;   for i: =2 to n do    if mas[i]< mas[min] then    min: =i;     writeln;     writeln(минимальное значение a[',min,']= ',mas[min]);       for i: =1 to n do    sum: =sum+mas[i];       ar: =sum/n;     writeln;     writeln('среднее арифметическое =  ',ar);     end.{немного нерационально но работает=)}