1.
n=Input["Vnesi go n"];
For[i=1,i<n/3,i++,If[Mod[i,2]==1,Print[i]]]
2.
n=Input["n="];
brojDeliteli=0;
For[i=1,i<=n,i++,
x=Input["broj="];
Print["Deliteli na ",x, " se: "];
For[j=2,j<=x/2,j++,If[Mod[x,j]==0,Print[j];brojDeliteli++;]]
]
Print["Vkupniot broj deliteli na ",n,"-te vneseni broevi e ",
brojDeliteli]
3.
n=Input["Broj na cifri: n="]
a=Input["Broj: a="]
rezultat=1;
tmp = a;
While[tmp>0,rezultat*=Mod[tmp,10];tmp=IntegerPart[tmp/10]];
Print["Proizvodot na cifri na ", n, "-cifreniot broj ", a, " e: ",
rezultat];