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

uses crt;
var
n,i:integer;
begin
writeln('n?');
readln(n);
for i:=n to 2*n-2 do writeln(i,' ',i+2);
readln;
end.

Следующий вариант

function prost(n:longint):boolean;
var i:longint;fl:boolean;
begin
fl:=true;
for i:=2 to int(sqrt(n)) do
if n mod i<>0 then
  begin
fl:=false;
break;
end;
if fl then prost:=true else prost:=false;
   end;
  begin
for i:=n to 2*n do
begin
if (prost(i)=true) and (prost(i+2)=true) then
writeln('N1=',i,'  N2=',i+2);
end;

Leave a Comment

66 − 60 =