clc;
disp('exercise by Maor Last Engeneering LTD. (B.tec)');
seq=input('enter DNA sequence and after *');
   
moneA=0;
moneC=0;
moneG=0;
moneT=0;

for i=1:100
    x=seq(i);
    if x=='A'
        moneA=moneA+1;
   
    elseif x=='C'
        moneC=moneC+1;

    elseif x=='G'
        moneG=moneG+1;
   
    elseif x=='T'
        moneT=moneT+1;
        
    else x=='*'
        break;
    
end
end   
       
disp(['numbers of A is:' num2str(moneA)]);
disp(['numbers of C is:' num2str(moneC)]);
disp(['numbers of G is:' num2str(moneG)]);
disp(['numbers of T is:' num2str(moneT)]);