M меньше n, n и m натуральные числа. Вывести на экран числа от m до n которые не являются простыми
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад