Question

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

Answer 1

uses crt;
function Prost(a:integer):boolean;
var i:integer;
    f:boolean;
begin
if a=1 then f:=false
else
 begin
  f:=true;
  i:=2;
  while(i*i<=a)and f do
  if a mod i=0 then f:=false
  else i:=i+1;
 end;
Prost:=f;
end;
var n,i,k:integer;
begin
clrscr;
repeat
write('Введите целое число больше 2 n=');
readln(n);
until n>2;
k:=0;
for i:=n to 2*n-2 do
if Prost(i) and Prost(i+2) then
 begin
  k:=k+1;
  writeln(i,'  ',i+2);
  if k mod 22=0 then {если чисел много, не войдут на экран}
   begin             {после 22 задержка}
    write('Нажмите Enter');
    readln;
   end;
 end;
if k=0 then write('Таких пар нет!');
readln
end.