Теория

megaloman · Отправлено: **16:07, 06-07-2011** | #11

Нашел в закромах MS FORTRAN Optimizing Compiler v.5.00 от 1989 года
Моё первое, подправленное решение

Код:

      LOGICAL L
      N=95443536

      DO 1 I=3,N
      L=N.NE.(I-2)*(I-1)*I
      IF (L) GO TO 1 
      PRINT 101,N,I-2,I-1,I
      GO TO 100
    1 CONTINUE
      PRINT 102

  100 STOP
  101 Format(1X,I8,'=',I3,'*',I3,'*',I3)
  102 Format(1X,'Решения нет')
      END

Более эффективно искать решение около корня кубического исходного числа, строго математически доказать не берусь, интуитивно вроде бы понятно, что решение единственное, если оно существует

Код:

      LOGICAL L
      N=95443536

      I=N**0.3333333333333333

      L=N.EQ.I*(I+1)*(I+2)

      IF (L) PRINT 101,N,I,I+1,I+2
      IF (.NOT.L) PRINT 102

  100 STOP
  101 Format(1X,I8,'=',I3,'*',I3,'*',I3)
  102 Format(1X,'Решения нет')
      END

Под руками нет книжонки подсмотреть If-Then-Else

Tau_0 · Отправлено: **21:22, 06-07-2011** | #12

Цитата megaloman:

Более эффективно искать решение около корня кубического исходного числа »

Скомпилировал и прогнал второй вариант…

Цитата:

95443536=456*457*458
Press any key to continue

Цитата:

интуитивно вроде бы понятно, что решение единственное, если оно существует

А вот это непонятно ---- что Вы имеете в виду.

Вроде как не единственно...

456*457*458 = (456/2) * (457*2) * 458 = etc…

…???...

Добавлено порсле внимательного прочтени иусловия

Цитата:

можно ли его представить в виде произведения трёх последовательных натуральных чисел.

Вопрос снимается... А я голову ломал --- слово "последовательных" пропустил. Просто на три фактора раскладывал....