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

луч16 луч16    2   02.10.2019 20:30    0

Ответы
рута2 рута2  09.10.2020 12:28

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика