Сколько значащих нулей в двоичной записи числа

4^230 + 8^120 - 2^150 - 100

3 носка,т.к. среди них точно есть пара(в числе 3 есть число 2)

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

if(a> b) cout < < a;

if(a< b)cout < < b;