задача с циклом в паскале

[баста]

Найти все простые, которые являются одновременно и разностью двух простых.

[mflat]

Найти все простые, которые являются одновременно и разностью двух простых.

Эээ..а можно как-нибудь по другому это объяснить?

[tsergey]

укажи диапазон т.е. ограничения от до какого числа нужно искать простые числа

[puporev]

Поскольку из всех простых чисел четное только 2, то разность двух простых чисел может быть простым числом только если она равна 2, поскольку разность двух нечетных чисел есть число четное. Поэтому алгоритм поиска сводится к поиску простых чисел, которые в сумме с числом 2 дают также простое число.

uses crt;
function Prost(x:longint):boolean;{функция для определения простых чисел}
var i:longint;
begin
for i:=2 to round(sqrt(x)) do
if x mod i=0 then
  begin
   Prost:=false;
  end;
end;
var n,i,k:longint;
begin
clrscr;
write('Vvedite verhnij predel n=');
readln(n);
writeln('2');{первое число 2}
k:=1;{счетчик чисел для удобства просмотра результата, потому что при больших n все на экран не войдет}
for i:=3 to n-2 do {в цикле ищем нужные числа}
if Prost(i)and Prost(i+2) then
   begin
    writeln(i);{выводим}
    inc(k);{считаем}
    if k mod 20=0 then readln;{через каждые 20 задержка}
   end;
readln
end.

[баста]

Сообщение от tsergey

укажи диапазон т.е. ограничения от до какого числа нужно искать простые числа

От 1 до 100,например.

[puporev]

От 1 до 100,например.

1 не есть простое число, а 2 заведомо подходит по условию, поэтому от 3 до 100. Тебе чего, одного кода мало?

[баста]

мне то хватит, вдруг ты для себя решил сделать задачу)кстати спасибо puporev