Хелп! на интервале (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.
if i mod 2 <> 0 then begin
k:=0;
for j:= 1 to (i div 2) do
if i mod j=0 then
inc (k);