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

Ответы 6

  • Да, в силу того, что эти делители должны быть различны)
  • В смысле "на простоту проверяют натуральные числа, начинающиеся от 2"?
    • Автор:

      candypi6z
    • 6 лет назад
    • 0
  • Ну да. Но можно поправить, конечно, добавить проверку на значение 1.
    • Автор:

      gatorajut
    • 6 лет назад
    • 0
  • В смысле того, что единицу на простоту не проверяют обычно..
    • Автор:

      maya95
    • 6 лет назад
    • 0
  • Но если модератор захочет - даст ответ на исправление, я поправлю.
  • PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

    function IsPrime(Self: integer): boolean; extensionmethod;

    // является ли число простым ?

    begin

     if Self < 4 then Result := True

     else

     begin

       var found := (Self mod 2 = 0);

       var p := 3;

       while (not found) and (sqr(p) <= Self) do

       begin

         found := (Self mod p = 0);

         p += 2

       end;

       Result := not found

     end

    end;

    begin

     var (m, n) := ReadInteger2('Введите m и n:');

     Range(m, n).Where(t -> not t.IsPrime).Println

    end.

    answer img
    • Автор:

      kai773
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years