Задачка на 10 балов

[Juhn]

Задали написать программу в паскале на десяточку
Условие такое: найти минимальное натуральное число N, которое можно изобразить в виде суммы кубов двух натуральных чисел в двух вариантах. (N=a(3)+b(3)=c(3)+d(3)). (3) - в третей степени.

Честно говоря не знаю как написать эту прогу, а десять получить очень хочется
Очень надеюсь на вашу помощь.

[_Dmitry]

Код не оптимален, но работает

const
  N = 20;
var
  i,j,k,m,min: LongInt;
  a: array[1..N,1..N] of LongInt;
begin
  for i:=1 to N do
    for j:=1 to N do
      a[i,j]:=i*i*i+j*j*j;
  min:=high(integer);
  for i:=1 to N do
    for j:=1 to N do
      for k:=1 to N do
        for m:=1 to N do
          if (a[i,j] = a[k,m]) and (i <> k) and (j <> m) and
             (i <> m) and (j <> k) and (a[i,j] < min) then
            begin
              min:=a[i,j];
              writeln(a[i,j],'/',i,',',j,'/',k,',',m);
            end;
end.

[Juhn]

Спасибо большое, но мне ещё нужно описать каждую строку. Многие команды я не знаю, например : LongInt; , array, min:=high(integer); for j:=1 to N do
Вообщем не поможите описать строчки пожалуйста ?

[koyot]

а как ты тогда прогу писать собирался???
longint и array это не команды а тип переменной такой лонгинт, а аррей-массив, мин- минимум от, for j:=1 to n - от 1 до числа н делать...

[Alex21]

А алфавит вам не рассказать?
Учите матчасть.
Подобные вопросы - в Помощь студентам.
Тема закрыта.