BAB 1C : Perulangan - Bilangan Agak Prima

Solusi BAB 1C : Perulangan - Bilangan Agak Prima

PROGRAM agakprima;

var pr,bts,tes,cek : longint;

    c,a : byte;

begin

     readln(c);

     for a:=1 to c do

         begin

              readln(pr);

              cek:=0;

              tes:=3;

              bts:=trunc(pr/2);

     if ((pr mod 2=0) and (pr<>2)) or (pr=1) then

        inc(cek);

     while tes<=bts do

     begin

       if (pr mod tes=0) then

       begin

        inc(cek);

        if cek>2 then break;

       end;

       inc(tes);

     end;

     if cek>2 then

       writeln('TIDAK')

     else

       writeln('YA');

     end;

end.