fork download
  1. program ctf;
  2. var Q, N, ans, i, e, pot, ricordaN :qword;
  3.  
  4. function potenza (esp:qword) : qword;
  5. var p, j : qword;
  6. begin
  7. p:=1;
  8. for j:=1 to esp do p:=p*2;
  9. potenza:=p;
  10. end;
  11. begin
  12. readln(Q);
  13. for i:=1 to Q do
  14. begin
  15. readln(N);
  16. ricordaN:=N;
  17. e:=0;
  18. while N<>1 do
  19. begin
  20. N:=N div 2;
  21. inc(e);
  22. end;
  23. pot:=potenza(e) ;
  24. ans:=2*(ricordaN mod pot);
  25. writeln(ans+1);
  26. end;
  27. end.
Success #stdin #stdout 0s 5316KB
stdin
2
6
10
stdout
5
5