в интервале (1000 .. 9999) найти все простые числа (Delphi)

[Dima170792]

Доброго времени суток!ув.форумчане помогите пожалуста с решением задачи по информатике,язык программирования -borland Delphi 7 !условия задачи следующие:в интервале (1000 .. 9999) найти все простые числа,каждое из которых имеет такое свойство,что сумма первой и второй цифр записи этого числа равняеться сумме третей и четвёртой цыфры. Если можно-выложите полный код программы.Заранее спасибо!

[eatlant]

сначала - обычное решето эратосфена, а затем с оставшимися числами делаешь следующее: можно перевести в строку и элементарно проверить свойство,что сумма первой и второй цифр записи этого числа равняеться сумме третей и четвёртой цыфры.

[Dima170792]

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

сначала - обычное решето эратосфена, а затем с оставшимися числами делаешь следующее: можно перевести в строку и элементарно проверить свойство,что сумма первой и второй цифр записи этого числа равняеться сумме третей и четвёртой цыфры.

А можна подробнее -кодом-потомучто если чесно-я не знаю как ето организовать!

[Greek9000]

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

А можна подробнее -кодом-потомучто если чесно-я не знаю как ето организовать!

Вот и мне интересно, как работает решето для массива, который начинается не с 2-ки? Потому что мне кажется, что оставшиеся после отсеивания числа можно проверить на простоту только полным перебором. Имеется ввиду общий случай, когда сам массив не очень большой, но он начинается с очень большого числа, и соответственно нету списка простых чисел которые меньше начального элемента массива.

[eatlant]

обычно. решето на произвольном отрезке ничем не отличается фактически от решета на отрезке начиная с 2

[Dima170792]

пожалуста-киньте хотяб примерный код-вобще ничего не пойму!!!

[Serge_Bliznykov]

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;
var i : integer;
begin
  for i:=1000 to 9999 do
    if  ((i div 1000)+ (i div 100 mod 10) = 
         (i mod 100 div 10) + (i mod 10)) and IsPrime(i) then
    WriteLn(i);
  Readln;
end.

[Greek9000]

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

обычно. решето на произвольном отрезке ничем не отличается фактически от решета на отрезке начиная с 2

Не согласен!
Для решета начинающегося с 1000 простыми будут 1000, 1001, 1003, 1005 ... , что является неправильным. В этом случае работать будет только метод предложенный Serge_Bliznykov - ну или по крайней мере какой-нибудь другой переборный метод.

[Dima170792]

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

Не согласен!
Для решета начинающегося с 1000 простыми будут 1000, 1001, 1003, 1005 ... , что является неправильным. В этом случае работать будет только метод предложенный Serge_Bliznykov - ну или по крайней мере какой-нибудь другой переборный метод.

Я нашёл правильное решение-

procedure TForm1.btn1Click(Sender: TObject);
var s : string;
    d,d1,d2,d3,d4,d5,d6: integer;
begin
    for d := 1000 to 9999 do begin
      s := IntToStr(d);
      d1 := StrToInt(s[1]);
      d2 := StrToInt(s[2]);
      d3 := StrToInt(s[3]);
      d4 := StrToInt(s[4]);
      d5 := d1 + d2;
      d6 := d3 + d4;
      if d5 = d6 then begin
        mmo1.Lines.Add(s);
      end;
    end;
end;

кому интересно-работает!

[Serge_Bliznykov]

кому интересно-работает!

Кому интересно, это НЕПРАВИЛЬНОЕ решение!

задачи следующие:в интервале (1000 .. 9999) найти все простые числа

выделенное слово Вам ни о чём не говорит?!

правильный вариант решения в пост #7
если Вы его не поняли - я не виноват...