p1382.pas

来自「高手写的所有acm例程 在acm.zju.edu.cn 上的题目的例程」· PAS 代码 · 共 27 行

PROGRAM p1382;

VAR
        n       :longint;
        k       :integer;
        i       :Integer;
PROCEDURE ans;
var     j       :longint;
begin
j:=0;
while n mod 2=0 do
        begin
        inc(j);
        n:=n div 2;
        end;
writeln(n,' ',j);
end;

BEGIN
readln(k);
for I:=1 to k do
        begin
        readln(n);
        ans;
        end;
END.