Question

Составить программу вычисления двузначного числа, сумма кубов цифр которого равна n.

Answer 1

// PascalABC.NET 3.2, сборка 1456 от 26.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var s:=Range(10,99).Where(x->(Power(x div 10,3)+Power(x mod 10,3)=n));
  if s.Count>0 then s.Println
  else Writeln('Нет таких чисел')
end.

Пример
n= 9
12 21

Answer 2

Var
   a,b,k:byte;
   n:integer;
Begin
Write('n = ');ReadLn(n);
k:=0;
For a:= 1 to 9 do
    For b:= 0 to 9 do
        if a*a*a+b*b*b = n then
           Begin
           Write(a,b,' ');
           k:=k+1
           End;
if k = 0 then Write('Таких чисел не существует.')
End.

Answer 3

Конечно, вот пример программы на языке Python, которая будет находить двузначное число, сумма кубов цифр которого равна заданному значению n:

pythonCopy code
def sum_of_cubes(num):
    return int(num[0]) ** 3 + int(num[1]) ** 3

def find_numbers_with_sum_of_cubes(n):
    results = []
    for i in range(10, 100):
        digits = str(i)
        if sum_of_cubes(digits) == n:
            results.append(i)
    return results

target_sum = int(input("Введите значение суммы кубов: "))
numbers = find_numbers_with_sum_of_cubes(target_sum)

if len(numbers) > 0:
    print(f"Двузначные числа с суммой кубов {target_sum}: {numbers}")
else:
    print(f"Нет двузначных чисел с суммой кубов {target_sum}")

Вы можете ввести желаемое значение суммы кубов, и программа найдет все двузначные числа, у которых сумма кубов цифр равна введенному значению.