Как решить задачу?

[BETONOMESHALKA]

На интервале 1000....1999 найти все простые числа каждое и которых обладает тем свойством что сумма первой и второй его Цифр записи этого числа равна сумме третьей и четвёртой цифре.
Как решить?

[shtuceron]

Думаю что это подойдет:

procedure TForm1.Button1Click(Sender: TObject);
var s: string[4];
x1, x2, x3, x4: integer;
i: integer;
begin

for i:=1000 to 1998 do
begin
s:=inttostr(i);
x1:=strtoint(copy(s, 1, 1));
x2:=strtoint(copy(s, 2, 1));
x3:=strtoint(copy(s, 3, 1));
x4:=strtoint(copy(s, 4, 1));
if (x1+x2)=(x3+x4) then Memo1.Lines.Add(s);
end;

end;

[AlDelta]

Думаю что это подойдет:
procedure TForm1.Button1Click(Sender: TObject);
var s: string[4];
x1, x2, x3, x4: integer;
i: integer;
begin

for i:=1000 to 1998 do
begin
s:=inttostr(i);
x1:=strtoint(copy(s, 1, 1));
x2:=strtoint(copy(s, 2, 1));
x3:=strtoint(copy(s, 3, 1));
x4:=strtoint(copy(s, 4, 1));
if (x1+x2)=(x3+x4) then Memo1.Lines.Add(s);
end;
end;

Простое число — это натуральное число, большее единицы, имеющее два натуральных делителя 1 и само себя.
Например: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29...

Данный код показывает все числа у которых:
сумма первой и второй цифры равна сумме третьей и четвёртой цифре.
Автору нужно все простые числа у кторых:
сумма первой и второй цифры равна сумме третьей и четвёртой цифре.

[Omedus]

Простые числа можно проверять так: делаем счётчик от 1000 до 1999. В нём делаем ещё один счётчик, но уже от 1 до 1999. Делим нацело переменную первого счётчика на переменную второго и сравниваем остаток от целого деления с нулём. Если делится, то какой-то переменной n присваевается значение n+1 (изначально n=0). Если n=2, то это значит, что нашлись лишь два числа с промежутка от 1 до 1999 на которых число первого счётчика делится нацело. Тогда число первого счётчика записываем в новый массив. В результате у нас будет массив простых чисел с промежутка от 1000 до 1999. Ну а как делать дальше уже говорил shtuceron. Просто делаем не со всеми числами, а с числами из нового массива простых чисел.
Надеюсь, что я всё понятно объяснил. Извиняюсь, что без кода (времени нет)

[BETONOMESHALKA]

Пасиба shtuceron но что значит ((string[4] 4 в скобках это что? ))
(((x1:=strtoint(copy(s, 1, 1)) что такое copy и что там за цифры? )))))
и что такое i ???

[BOBAH13]

Странно... незная этого решаете задачи, и просите полного ответа ввиде кода. Я боюсь спрашивать зачем Вам это 4 - это всеголиш ссылка на байт или по русски это 4й символ строки - ну а copy - явно написано Копировать , указан 1й параметр строка а потом индекс и сколько. Это все написано и выводиться при нажатии на copy (например) F1 - клавиши. Ах да а i - переменная и если это так не заметно то переменная i участвует в цикле перебора

[AlDelta]

copy(st, index, count) - функция типа string; копирует из строки st count символов, начиная с символа index.

i - переменная цикла, счетчик.

BETONOMESHALKA решение shtuceron не коректно, согласно поставленному заданию.

Вот тут много чего полезного для тебя, читай.

[AlDelta]

Немного топорно, но делает то что надо.

procedure TForm1.Button1Click(Sender: TObject);
const n=1999;
var Numb:array[0..n] of integer;
    i,k,x1,x2,x3,x4:integer;
    s:string;
begin

for i:=0 to n do
Numb[i]:=i;

Numb[1]:=0;
for i:=2 to n do
Begin
if Numb[i]<>0 then
Begin
k:=i*2;
while k<n do
Begin
Numb[k]:=0;
k:=k+i;
End;
End;
end;

//--------------------------------------------->
//Код shtuceron'a
//--------------------------------------------->
for i:=1000 to n do
if (Numb[i]<>0) then
Begin
s:=IntToStr(Numb[i]);
x1:=StrToInt(copy(s, 1, 1));
x2:=StrToInt(copy(s, 2, 1));
x3:=StrToInt(copy(s, 3, 1));
x4:=StrToInt(copy(s, 4, 1));
if (x1+x2)=(x3+x4) then Memo1.Lines.Add(s);
End;
//--------------------------------------------->
end;

[BETONOMESHALKA]

Пасиба al delta. Почитаю