Какое число будет напечатано в результате выполнения программы? var i, k: integer; function f(x: integer): integer; begin if x > 0 then f := x mod 2 + f(x div 2) else f := 0; end; begin k := 0; for i := 0 to 1023 do if f(i mod 32) = 1 then if f(i div 32) = f(i mod 32) then k := k + 1; writeln(k); end.