Дано натуральное число N. Среди натуральных чисел N,N+1,.,2N найти всех близнецов

@programmistnub · Регистрация: 27.06.2012

Студворк — интернет-сервис помощи студентам

Решите задачку про числа - близнецы. Заранее спасибо!
Дано натуральное число N. Среди натуральных чисел N,N+1,...,2N найти всех близнецов. Два натуральных числа N и M называются близнецами, если они являются простыми и разность между ними равна 2.

@igor_kz · 30.06.2012, 18:21

Pascal

Var n , i : integer;
function isPrime(x : integer) : boolean;
Var i : integer;
Begin
    isPrime := true;
    i := 2;
    while i * i <= x do begin
        if x mod i = 0 then begin
            isPrime := false;
            break;
        end;
        i := i + 1;
    end;
End;
Begin
    read(n);
    for i := n to 2 * n - 2 do begin
        if (isPrime(i)) and (isPrime(i + 2)) then
            WriteLn(i , ' ' , i + 2);
    end;
End.

@programmistnub 3 / 3 / 0 Регистрация: 27.06.2012 Сообщений: 165 Записей в блоге: 1
		1
	Дано натуральное число N. Среди натуральных чисел N,N+1,.,2N найти всех близнецов 28.06.2012, 20:26. Показов 2623. Ответов 1 Метки нет (Все метки) Решите задачку про числа - близнецы. Заранее спасибо! Дано натуральное число N. Среди натуральных чисел N,N+1,...,2N найти всех близнецов. Два натуральных числа N и M называются близнецами, если они являются простыми и разность между ними равна 2. 0

	30.06.2012, 18:21

Опции темы

Дано натуральное число N. Среди натуральных чисел N,N+1,.,2N найти всех близнецов

Решение