DM2 Lab. 1

n = Input["Vnesi go n"];
For[i = 1, 3*i < n, i++, If[Mod[i, 2] == 1, Print[i]]]

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]

n = Input["Broj na cifri: n= "]
a = Input["Broj: a="]
rez = 0;
tmp = a;
While[tmp > 0, rez += Mod[tmp, 10]^2; tmp = IntegerPart[tmp/10]];
Print["Proizvodot na cifri na brojot ", a, " e: ", rez];