[Dima170792]

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

[march]

Код:

var
 i:integer;
begin
  for i:=1000 to 9999 do
   begin
    if (strtoint(copy(inttostr(i),1,1))+strtoint(copy(inttostr(i),2,1)))=
    (strtoint(copy(inttostr(i),3,1))+strtoint(copy(inttostr(i),4,1))) then
     memo1.Lines.add(inttostr(i));
   end;
end;

такое устроит? возможно еще через числа