2^4000+2^1000-2^250+2^1+2^0. Очевидно, любое число 2^n содержит одну единицу, по индукции путем вычитания в столбик доказывается, что 2^m-2^n содержит m-n единиц. Теперь считаем: 2^1000-2^250 содержит 750 единиц и совершенно понятно, что на 1-м и 2-м месте с конца нули, т.е. 2^1 и 2^0 добавят по единице и 2^4000 еще одну в начале. Ответ: 753.
Var n:integer;
Begin
Read(n);
while (n>0) do begin
if(n mod 2 = 1) then begin
writeln(true);
exit;
end;
n := n div 10;
end;
writeln(false);
End.
Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
<span>end.</span>