Два обычных числа величаются "близнецами", если они отличаются друг от друга

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

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

Задать свой вопрос
1 ответ

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

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

uses System.Linq;

function GetPrimes(n: integer): Listlt;integergt;;

begin

   var primes := new Listlt;integergt;();

   primes.Add(2);

   

   for var i := 3 to n do

   begin

       if primes.All(x -gt; i mod x gt; 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.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт