Хелп! на интервале (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.

Есть вопросы?

• Как otvet5GPT работает?
  otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

• Сколько это стоит?
  Проект находиться на стадии тестирования и все услуги бесплатны.

• Могу ли я использовать otvet5GPT в школе?
  Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

• В чем отличия от ChatGPT?
  otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.