• Два простых числа называются "близнецами", если они отличаются друг от друга на 2 (таковы, например, числа 41 и 43). Напечатать все пары "близнецов" из отрезка [n, 2n], где n - заданное целое число, большее 2.

    Написать на PascalABC.NET

Ответы 2

  • Если Вам не сложно...Помогите мне тоже, пожалуйста.... Я Вас оочень прошу...( https://znanija.com/task/30950478
    • Автор:

      theresa
    • 6 лет назад
    • 0
  • //PascalABC.NET версия 3.4.0.1677 от 17.06.18

    //Если программа не запускается, то обновите версию

    uses System.Linq;

    function GetPrimes(n: integer): List<integer>;

    begin

       var primes := new List<integer>();

       primes.Add(2);

       

       for var i := 3 to n do

       begin

           if primes.All(x -> i mod x > 0 ) then

               primes.Add(i);

       end;

       

       GetPrimes := primes;

    end;

    begin

       var n := ReadInteger('n =');

       var primes := GetPrimes(2 * n);

       

       foreach var p in primes do

           if primes.Contains(p + 2) then

               writeln(p, ' ', p + 2);

    end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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