Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 29.08.2016, 16:12   #1
ZigaBr0
 
Регистрация: 19.02.2016
Сообщений: 7
По умолчанию На заданном числовом промежутке требуется найти все числа, являющиеся парой близнецов

На заданном числовом промежутке требуется найти все: пары близнецов, то есть простых чисел, разность которых равна 2;
ZigaBr0 вне форума Ответить с цитированием
Старый 29.08.2016, 16:41   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

если решать задачу "в лоб" и не заморачиваться оптимальным решением (думаю, что в данной задаче решето Эратосфена было бы намного уместнее!)
тогда можно попробовать такой код:


Код:
function isPrime(X: LongInt): boolean;
var i, lim: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     lim := trunc(sqrt(x));
     while i <= lim do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

var i,a,b : LongInt;
begin 
   WriteLn('введите границы заданного числового промежутка [a..b]: ');
   ReadLn(a,b);
   i:=a; 
   if not odd(i) then i:=i+1;
   WriteLn('пары близнецов:');
   while i<=b-2 do begin
     if isPrime(i) and isPrime(i+2) then WriteLn(i,' ',i+2);
     i:=i+2;
   end;
   WriteLn('-------');
   ReadLn
end.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
На заданном числовом промежутке требуется найти все квадратные числа с убывающими слева направо цифрами / Pascal ABC Veronika_13 Помощь студентам 22 04.07.2014 22:27
задача на СИ. Строки. Дана последовательность символов, состоящая из слов одинаковой длины. Найти слова, являющиеся "особой парой" Роман64 Помощь студентам 2 18.12.2013 16:06
Задача «Анаграммы» - в предложении найти все слова, являющиеся анаграммами fivax Помощь студентам 2 21.10.2011 14:20
Найти все простые числа в заданном диапазоне Nikita++ Помощь студентам 8 20.10.2010 20:05


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS