Начало > Глава IV. Числа близнецы

ГЛАВА IV

АЛГОРИТМ

Числа близнецы

Числа-близнецы - два (нечётных) простых числа, отличающиеся на 2 называются близнецами.

{i - младшее число пары;
ii - старшее число пары;
d1, d2 - делители для первого и второго числа
k, k1 - количество делителей для первого и второго числа}

{сначала каким-либо образом вводится первое число, затем начинается проверка:}

k:=0; {поиск количества делителей младшего числа}
for d1:=1 to i do
if (i mod d1)=0 then inc(k);



ii:=i+2; {находим ii - старшее число пары}
k1:=0; {поиск количества делителей старшего числа}
for d2:=1 to ii do
if (ii mod d2)=0 then inc(k1);



if (k=2) and (k1=2) then
writeln ('числа ',i, ' и ',ii, ' близнецы'); {если в обоих случаях количество делителей равно 2, то пара чисел - близнецы}
end;

Наверх

Циклы | Числа | Цифры | Условия | Простые | Совершенные | Палиндромы | Фибоначчи | <Близнецы> | Дружественные | Автоморфные | Пифагоровы