M меньше n, n и m натуральные числа. Вывести ** экран числа от m до n которые не являются...

Question

M меньше n, n и m натуральные числа. Вывести на экран числа от m до n которые не являются простыми

Comments

Какой язык?

---

На паскале желательно

Answer 1

begin

 var m := 1;

 var n := 10;

 foreach var i in range(m, n) do

 begin

   var d := 2;

   while (d < i) and (i mod d <> 0) do d += 1;

   if d < i then Print(i)

 end

end.