Информатика

Нилыч

1 октября, 21:59

Хелп!

На интервале (1000 - 9999) найти все простые числа, каждое из которых обладает тем свойством, что сумма первой и второй цифр в записи этого числа равна сумме третей и четвертой.

Вот моя программа, которая почему-то ни одного числа не нашла : / В чем моя ошибка?

var i, j, k, a, c, a2, c2, a3, a4: integer;

begin

for i: = 1000 to 9999 do

begin

if i mod 2 0 then begin

for j: = 1 to (i div 2) do

if i mod j=0 then

inc (k);

if k=2 then

begin

a: = i mod 10;

c: = i div 10;

a2: = c mod 10;

c2: = c div 10;

a3: = c2 mod 10;

a4: = c2 div 10;

if (a+a2) = (a3+a4) then write (i,' ');

end;

end;

end;

end.