clear
clc
k=1;t=1;m=1;n=1;
for i=1:1000
    if ~asalmi(i) && ~mukemmelmi(i)
        asal_degil_ve_mukemmel_degil(k)=i
        k=k+1;
    end
    if ~asalmi(i) && mukemmelmi(i)
             asal_degil_ve_mukemmel(t)=i
        t=t+1;
    end            
    if asalmi(i) && ~mukemmelmi(i)
               asal_ve_mukemmel_degil(m)=i
        m=m+1;
    end               
    if asalmi(i) && mukemmelmi(i)
               asal_ve_mukemmel(n)=i
        n=n+1;
    end    
end