Сколько 0 в двоичной записи десятичного числа 31?

Остаток от деления записываем в обратном порядке. получаем число в 2-ой системе счисления: 11111 31 = 11111 2

Угу 00000000000000000000000000000000000000000000

Program kvur; var a,b,c,d: real; begin writeln('решение квадратного уравнения(ax^2+bx+c=0).'); write('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); d: =sqr(b)-4*a*c; writeln('вы ввели: '); writeln('a= ',a); writeln('b= ',b); writeln('c= ',c); writeln('d=b*b-4*a*c=',d); if (d> 0) then begin writeln('d> 0 => уравнение имеет 2 действительных различных корня '); writeln('x1= '+sqrt(d))/(2*a)); writeln('x2= '-sqrt(d))/2*a); end else if (d=0) then begin writeln('d=0 => уравнение имеет 2 корня'); writeln('x1=x2=',-b/(2*a)); end else writeln('d< 0 => уравнение не имеет действительных корней'); end.

вот тебе в паскале

program ryad_chisel;

var n, t: integer;

begin

read(n);

t: =(n*(n+1))div 2;

if t mod 2 =1 then writeln('impossible')

else begin

      if n mod 2 =0 then begin

                        t: =n div 4;

                        repeat

                        write('+');

                        t: =t-1;

                        until t=0;

                        t: =n div 2;

                        repeat

                        write('-');

                        t: =t-1;

                        until t=0;

                        t: =n div 4;

                        repeat

                        write('+');

                        t: =t-1;

                        until t=0;

                        end

      else begin

          t: =((n+1) div 4)-1;

          repeat

          write('+');

          t: =t-1;

          until t=0;

          t: =((n-1) div 2)+1;

          repeat

          write('-');

          t: =t-1;

          until t=0;

          t: =(n+1) div 4;

          repeat

          write('+');

          t: =t-1;

          until t=0;

          end

      end    

end.