Дано натуральное число m. Укажите все тройки натуральных чисел x, y и z, удовлетворяющие следующему условию: m

@bubinatar · Регистрация: 16.11.2015

Author24 — интернет-сервис помощи студентам

Помогите решить задачу с помощью процедур и функций Дано натуральное число m. Укажите все тройки натуральных чисел x, y и z, удовлетворяющие следующему условию: m = x3 + y3 + z3.

@Hadros · 18.11.2015, 03:27

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,z,m,max:int64;
begin
  memo1.Clear;
  m:=какое-то_натуральное_число;
  max:=round(Exp(Ln(m)/3)-0.5);
  for x:=0 to max do
    for y:=x+1 to max do
      for z:=y+1 to max do
        if x*x*x+y*y*y+z*z*z=m then memo1.Lines.Add(inttostr(x)+','+inttostr(y)+','+inttostr(z));
  memo1.Lines.Add('конец списка');
end;

Если в тройках возможны повторы, то надо заменить x+1 на 0 и и y+1 на 0.

@bubinatar · 18.11.2015, 10:35 **[ТС]**

нужно в консольном приложении

@bubinatar 0 / 0 / 0 Регистрация: 16.11.2015 Сообщений: 17
		1
	Дано натуральное число m. Укажите все тройки натуральных чисел x, y и z, удовлетворяющие следующему условию: m 16.11.2015, 20:14. Показов 2334. Ответов 2 Метки нет (Все метки) Помогите решить задачу с помощью процедур и функций Дано натуральное число m. Укажите все тройки натуральных чисел x, y и z, удовлетворяющие следующему условию: m = x3 + y3 + z3. 0

@bubinatar 0 / 0 / 0 Регистрация: 16.11.2015 Сообщений: 17
	18.11.2015, 10:35 [ТС]	3
	нужно в консольном приложении 0

Дано натуральное число m. Укажите все тройки натуральных чисел x, y и z, удовлетворяющие следующему условию: m

Решение