p1350.dpr

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

program p1350;

{$APPTYPE CONSOLE}

var
        stay    :array[1..100]of boolean;
        total   :integer;
        n       :integer;
        part,p  :integer;
        i       :integer;
        j       :integer;
begin
readln(part);
for p:=1 to part do
        begin
        readln(n);
        total:=0;
        fillchar(stay,sizeof(stay),false);
        for I:=1 to n do
                for J:=1 to n div i do
                        stay[i*j]:=not stay[i*j];
        for i:=1 to n do if stay[i] then inc(total);
        writeln(total);
        end;
end.